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ABSTRACT 


The  MAGIC  computer  simulation  generates  target  description  data 
consisting  of  item-by-item  listings  of  the  target's  components  and  air¬ 
spaces  encountered  by  a  large  number  of  parallel  rays  emanating  from  any 
desired  attack  angle.  A  combinatorial  geometry  technique,  which  defines 
the  locations  and  shapes  of  the  various  physical  regions  in  terms  of  the 
intersections  and  unions  of  the  volumes  contained  in  a  set  of  simple 
bodies,  is  used  to  represent  complex  target  structures.  A  grid  ceil 
pattern  is  superimposed  over  the  surface  of  the  target  and  parallel  rays 
are  "fired"  from  each  grid  cell. 

Volume  II,  Part  I  contains: 

Section  I  Introduction 

Section  II  Mathematical  Model 

Section  III  Simulation  Model,  MAIN  Program  through 

Subroutine  TOR. 
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SUMMARY 


The  MAGIC  computer  simulation  generates  target  description  data  with  the 
detail  and  completeness  required  for  vulnerability  studies*  A  combinatorial 
geometry  technique  is  used  in  the  simulation  to  represent  a  complex  target 
structure*  A  large  number  of  parallel  rays,  randomly  located  in  grid  cells, 
are  traced  through  the  target  structure  to  produce  i tem-by-item  listings  of 
the  components  and  air  spaces, 

COMBINATORIAL  GEOMETRY  TECHNIQUE 

The  basic  technique  for  a  geometry  description  consists  of  defining  the 
Locations  and  shapes  of  the  target  physical  regions  (wall,  equipment,  etc-) 
utilizing  the  intersections  and  unions  of  the  volumes  of  twelve  simple  body 
shapes-  A  special  operator  notation  uses  the  symbols  (4*),  {-) ,  and  (OR)  to 
describe  the  intersections  and  unions.  These  symbols  are  used  by  the  program 
to  construct  tables  used  In  the  ray-t racing  portion  of  the  program* 

GEOMETRICAL  DESCRIPTION 

The  user  specifies  the  type  and  location  of  each  body  used  to  describe 
the  target;  and  identifies  physical  regions  in  terms  of  these  bodies*  Each 
region  is  assigned  an  identification  code  for  use  with  vulnerability  analyses* 
A  three-dimensional  coordinate  system  is  established  in  relation  to  the 
target,  which  is  enclosed  by  a  rectanguLar  parallelepiped-  A  grid  plane  is 
established  according  to  the  attack  angle  desired,  and  parallel  rays,  start¬ 
ing  randomly  from  each  grid  ceil,  are  traced  through  the  target* 

INPUT 


In  the  normal  operating  mode,  target  description  data  is  input  by  cards, 

A  portion  of  the  routine  converts  the  data  to  the  form  required  for  ray¬ 
tracing*  The  input  data  is  checked;  if  errors  are  detected,  messages  are 
printed  out*  Error-free  target  description  data  may  then  be  stored  on  mag¬ 
netic  tape  and  input  in  this  form  on  subsequent  production  mode  operations* 

OUTPUT 

The  basic  output  is  the  results  of  the  ray- tracing  computations*  A  list¬ 
ing  is  obtained,  for  each  grid  ceil,  of  the  line-of-sight  thickness  for  each 
geometrical  region  traversed,  the  obliquity  of  the  ray  with  respect  to  the 
normal  of  the  first  surface  of  each  region  encountered,  and  the  normal 
distance  through  each  region. 
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OPTIONAL  ROUTINES 

Three  optional  routines  are  available  to  the  user;  special  ray  tracing 
used  for  target  data  checking;  region  volume  calculations;  and  computing 
target  presented  area. 

PROGRAMMING 

The  simulation,  which  is  programmed  using  FORTRAN,  requires  a  large- 
scale  digital  computer.  The  simulation  is  currently  operational  on  both  the 
CDC-6600  and  BRL-BRLESC  computers . 
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SECTION  I 
INTRODUCTION 


The  MAGIC  computer  simulation  generates  target  description  data  with 
the  detail  and  completeness  required  for  vulnerability  studies.  The  target 
description  data  consists  of  item-by-item  listings  of  the  components  and 
air  spaces  encountered  by  a  large  number  of  parallel  rays  emanating  from 
any  attack  angle  and  passing  through  any  type  of  target. 

A  combinatorial  geometry  technique  is  used  to  represent  a  complex 
three-dimensional  target  structure,  such  as  a  tank,  in  terms  of  sums, 
differences,  and  intersections  of  relatively  simple  bodies.  The  input 
for  such  a  description  consists  of  the  geometric  location  and  dimensions 
of  the  simple  bodies  followed  by  a  region  definition  table  consisting  of 
a  series  of  equations  defining  each  region  in  terms  of  the  simple  bodies. 

In  addition  to  the  geometric  description,  a  coded  number  is  assigned  to 
each  region  to  identify  its  function. 

The  computer  routine  superimposes  a  grid  cell  pattern  over  the  surface 
of  the  target,  as  viewed  from  the  attack  angle  desired,  randomly  locating 
parallel  rays  in  each  grid  cell.  The  computer  traces  each  ray  through  the 
target;  and  each  target  item  encountered  is  listed  sequentially  and  identified 
as  to  ray  location  in  the  grid,  target  identification,  line-of-sight  thick¬ 
ness,  normal  thickness,  angle  of  obliquity,  identification  of  the  air  space 
following  the  target,  and  line-of-sight  distance  through  the  air  space. 

COMBINATORIAL  GEOMETRY  TECHNIQUE 

The  combinatorial  geometry  technique  has  been  developed  to  produce  a 
model  that  is  both  accurate  and  suitable  for  a  ray-tracing  analysis 
program.  The  basic  technique  for  a  geometry  description  requires  defining 
the  locations  and  shapes  of  the  various  physical  regions  (wall,  equipment, 
etc.),  utilizing  the  intersections  and  unions  of  the  volumes  of  twelve 
simple  bodies.  The  geometric  bodies  are  as  follows: 

(1)  Rectangular  parallelepipied 

(2)  Box 

(3)  Sphere 

(4)  Right  circular  cylinder 

(5)  Right  elliptical  cylinder 
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(6)  Truncated  right  angle  cone 

(7)  Ellipsoid 

(8)  Right  angle  wedge 

(9)  Arbitrary  convex  polyhedron  of  four,  five,  or  six  sides 

(10)  Truncated  elliptic  cone 

(11)  Arbitrary  surface 

(12)  Torus 

A  special  operator  notation  uses  the  symbols  (+) ,  {-),  and  (OR)  to 
describe  the  intersections  and  unions.  These  symbols  are  used  by  the  pro- 
gram  to  construct  tables  used  in  the  ray-tracing  portion  of  the  problem. 

If  a  body  appears  in  a  region  description  with  a  (+)  operator,  the  region 
being  described  is  wholly  contained  in  the  body.  If  a  body  appears  in  a 
region  description  with  a  (-)  operator,  the  region  being  described  is 
wholly  outside  the  body,  A  region  may  be  described  in  terms  of  several 
subregions  lumped  together  by  (OR)  statements. 

The  technique  of  describing  a  physical  region  is  best  illustrated  by 
examples.  Imagine  a  mallet  consisting  of  two  cylinders.  Call  the  mallet 
head  solid  number  1  and  the  handle  solid  number  2. 

The  two  cylinders  may  be  physically  positioned  and  logically  described 
in  several  ways.  One  way  is  to  consider  the  handle  and  head  as  separate 
regions,  as  shown  in  Figure  1,  The  region  description  is  region  1-1  and 
region  2  -  2-1, 


Reg  1 

f — Solid  2 

Solid  1  - — 

Reg  2 

FIG.  1, 


Mallet  with  Handle  and  Head  as  Separate  Regions 
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Another  way  is  to  think  of  the  handle  extending  into  the  head,  as 
shown  in  Figure  2.  A  logical  method  of  describing  this  mallet  is  region  1  = 
1-2  and  region  2=2,  indicating  that  the  mallet  head  contains  a  cylindrical 
hole  into  which  the  handle  is  fitted. 


Solid  1 


Reg  2 

Reg  1 

Solid  2 


FIG.  2.  Mallet  with  Handle  Extending  Into  the  Head 

Now  consider  a  description  of  a  mallet  physically  similar  to  that  in 
Figure  2  but  whose  handle  consists  of  two  types  of  material,  one  outside 
the  mallet  head  and  the  other  inside  the  head,  as  shown  in  Figure  3. 

A  logical  way  to  describe  this  is  region  1  =  1-2,  region  2  =  2-1,  and 
region  3  =  1+2. 


Solid  1 


'l 

Reg  1 

|  Reg  3 

Reg  2 

Solid  2 


FIG.  3.  Mallet  with  Handle  Consisting  of  Two  Types  of  Materials 
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A  fourth  way  is  to  lump  the  mallet  head  and  handle  into  one  region, 
considering  them  to  be  like  materials,  as  shown  in  Figure  4.  The  descrip¬ 
tion  then  is  region  1  =  (OR)  1  (OR)  2.  This  means  that  a  point  in  region  1 
may  be  in  either  solid  1  or  solid  2. 


Solid  1 


Solid  2 


Reg  1 


J 


FIG,  4,  Mallet  with  Head  and  Handle  of  Like  Materials 


A  rule  of  construction  imposes  the  additional  restriction  that  region 
descriptions  include  negation  {-)  of  buttressing  surfaces  not  otherwise 
necessary  to  the  logical  description  of  the  region.  That  is,  if  points  on 
the  surface  of  body  2  are  common  to  parts  of  the  surface  of  body  3,  as 
shown  in  Figure  5,  the  description  of  region  200  is  200  =  (+2)  (-3). 

Region  300  is  defined  as  300  =  (+3)  (-2) . 


FIG.  5.  Buttressing  Surfaces 
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GEOMETRICAL  DESCRIPTION 

The  user  of  the  program  must  specify  the  geometrical  description  by 
establishing  two  tables.  The  first  table  describes  the  type  and  location 
of  the  set  of  bodies  to  be  used.  The  second  table  identifies  the  physical 
region  in  terms  of  these  bodies.  The  computer  program  converts  these  tables 
into  the  form  required  for  ray  tracing.  Note  well:  all  the  space  must  be 
divided  into  regions,  and  no  point  may  be  in  more  than  one  region. 

Coordinate  System 

The  geometric  figures  used  to  define  the  target  are  located  relative  to 
one  another  by  the  use  of  a  three-dimensional  coordinate  system  superimposed 
on  available  engineering  drawings.  A  readily  identifiable  reference  point 
should  be  designated  from  which  the  three-dimensional  coordinate  system  can 
easily  be  constructed.  On  armored  vehicles  such  as  tanks,  the  intersection 
of  the  turret  datum  line  and  the  center  lines  of  the  turret  forms  a  natural 
reference  point  for  the  coordinate  system  origin  as  illustrated  by  the  sim¬ 
plified  tank  in  Figure  6. 

Rectangular  Parallelepipeds  *(RFF) 


Once  the  coordinate  system  is  established,  the  target  is  inclosed  in  an 
environment  consisting  of  rectangular  parallelepipeds  (RPP's),  The  RPP's  are 
solid  geometric  figures  used  for  gross  subdivisions  of  the  target  environment, 
which  consists  of  the  air  surrounding  and  the  ground  under  the  target. 

Twelve  RPP's  are  used  for  the  nuclear  analysis  of  targets,  as  shown  in 
Figure  7,  but  only  one  RPP  is  required  for  conventional  target  analyses. 

Twelve  RPP's  should  be  considered  for  all  target  descriptions  so  as  to 
standardize  the  target  descriptions  for  use  with  either  conventional  or 
nuc 1 ear  ana lyses. 

Identification  Codes 


Each  region  is  assigned  an  identification  code  for  use  with  conventional 
vulnerability  and  MAGIC  programs*  A  three-digit  code  is  assigned  to  each 
component  of  the  target,  such  as  armor,  gun  tube;  and  a  two-digit  code  is 
assigned  to  each  space,  such  as  inside  air,  outside  air.  A  general  division 
of  identification  codes  might  be  as  shown  in  Table  1.  A  component  described 
using  more  than  one  region  will  have  its  ID  assigned  to  each  region. 

Grid 

All  the  rays  that  are  traced  through  the  target  geometry  originate  in 
the  grid  plane,  which  is  a  plane  divided  into  equal  squares  called  grid  cells 
and  oriented  so  that  a  ray  passed  perpendicularly  from  the  center  of  the  plane 
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TABLE  1.  Identification  Codes 


Component  Codes 


ID  Codes 

Type  of  Component 

001-099 

Internal  components 

100-199 

Types  of  armor 

200-299 

Fuel  components 

300-399 

Miscellaneous  exterior  components 

400-499 

Gun  components 

500-599 

Track  suspension  components* 

600-699 

Wheel  suspension  components 

700-799 

Power  train  components 

800-899 

Miscellaneous  components 

900-998 

Not  used  at  present 

999 

The  ground 

*ID  ^de  501  is  reserved  for  the  track;  the  computer  assigns  502  if  the 
track  edge  is  hit. _ _ 

_ _ Space  Codes 


Space  Number 
00 

^  External  air 

02 

Crew  compartment  air 

Not  used  at  present 

^  Not  used  at  present 

^  Engine  compartment  air 

^  Not  used  at  present 

^  Not  used  at  present 

08 

Not  used  at  present 
09 

_ _ _ I _ No  further  target 

NOTE:  The  operation  of  the  MAGIC  program  will  not  allow  assigning  different 
space  codes  to  bounding  regions.  In  other  words,  a  ray  passing  through  the 
geometry  cannot  pass  directly  from  outside  air  (01)  to  inside  fir  (02?  TW* 
must  be  a  three-digit  coded  if  between  different  space  regions. 


_ Type  ot  Space 

Not  used  at  present 
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to  the  target  will  intersect  the  target  coordinate  system  origin 4  The  grid 
plane  is  established  with  the  following  information:  grid  size*  attack  angle 
of  the  target*  and  back-off  distance  from  the  origin  of  the  coordinate  system* 

The  attack  angle  is  specified  in  terms  of  an  azimuth  and  elevation  angle 
using  a  right-handed  coordinate  system.  A  positive  azimuth  angle  is  measured 
from  the  positive  X  axis  in  a  counterclockwise  direction  when  viewed  from 
above,  as  shown  in  Figure  8*  Elevation  angles  are  measured  from  the  X-Y 
plane  positive  upward. 

The  back-off  distance  is  the  distance  from  the  origin  of  the  coordinate 
system  used  in  the  target  description  to  the  grid  plane*  All  the  rays  orig¬ 
inating  from  a  common  grid  plane  must  start  in  the  same  region;  therefore, 
the  grid  plane  must  be  placed  within  the  bounds  of  one  region.  If  the  grid 
plane  is  to  include  the  entire  target,  it  must  lie  outside  the  target  as 
described  in  the  region  description.  If  only  a  certain  component  of  the 
target  is  to  be  considered  (for  instance,  the  engine  of  a  tank),  care  must 
be  taken  to  insure  that  the  grid  plane  lies  outside  the  engine  as  described, 
that  it  lies  within  the  bounds  of  only  one  region,  and  that  all  rays  end  in 
a  common  region. 

Cellular  Output 

The  basic  output  of  the  MAGIC  simulation  consists  of  cellular  output 
obtained  from  the  ray  tracing  computations.  The  ray  tracing  phase  is  the 
process  whereby  rays  (one  for  each  cell)  are  traced  perpendicularly  from  the 
grid  plane  through  the  target  geometry.  The  calculated  output  for  each  ray 
consists  of  the  line-of-sight  thickness  of  each  geometric  region  traversed, 
the  obliquity  (angle  of  incidence)  of  the  ray  with  respect  to  the  first 
surface  of  each  region  encountered  (excluding  air  or  spaces),  and  the  normal 
or  perpendicular  distance  through  each  region  from  the  point  of  entry  (exclud¬ 
ing  air  or  spaces).  One  unique  feature  of  the  program  is  that  thicknesses 
of  bounding  geometric  regions  with  like  functional  identifiers  are  cumulative. 
A  representative  vehicle  section  for  target  cell  description  data  is  shown 
in  Figure  9 , 


Data  Input  Error 

The  simulation  contains  statements  to  check  the  validity  of  the  target 
geometry  data.  Some  of  the  errors  are  considered  fatal  and  will  cause  execu¬ 
tion  to  terminate,  while  others  will  be  noted  and  special  error  messages 
printed,  A  tally  is  maintained  of  the  non-fatal  errors;  if  they  exceed  a 
specif led  number,  execution  terminates.  Table  2  lists  the  error  items  and  the 
subroutine  in  the  simulation  where  the  error  check  statement  is  located. 
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COMPONENT  (TURRET  WALL) 
SPACE 

COMPONENT  (GUNNER) 

SPACE 

COMPONENT  (BREECH  BLOCK) 
SPACE 

COMPONENT  (AP  PROJECTILES) 
SPACE 

COMPONENT  (TURRET  WALL) 


FIG.  9.  Representative  Vehicle  Section  for  Target  Cell  Description  Data 
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TABLE  2. 


Data  Inmit  Errors 


Subroutine 

Description 

Error  Type 

GEN1 

Body  card  does  not  contain  correct 
body  abbreviation 

Fatal 

Minor  radius  of  torus  equal  to  or 
greater  than  major  radius 

Non-fatal 

Semi-major  and  semi-minor  axes  of 
truncated  elliptical  cone  are  not 
perpendicular  or  height  vector  is 
parallel  to  base 

Non- fatal 

Radii  of  upper  and  lower  bases  same 
for  truncated  elliptical  cone 

Non-fatal 

Vectors  used  to  describe  a  box, 
right  angle  wedge,  or  truncated 
elliptical  cone  are  not  mutually 
perpendicular 

Non-fatal 

Storage  locations  for  body  data 
exceed  allowable  value 

Fatal 

Logical  operator  was  not  located 

Fatal 

Storage  locations  for  region  data 
exceed  allowable  value 

Fatal 

Number  of  regions  in  region  table 
input  does  not  match  the  number 
of  regions  specified 

Fatal 

Number  of  body  description  cards 
does  not  match  the  number  speci¬ 
fied 

Fatal 

Region  descriotion  error 

Fatal 

Storage  for  enter/leave  table 
exceeded 

Fatal 

RPPIN 

RPP  description  errors 

Fatal 
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TABLE  2.  (Concluded) 


Subroutine 

Description 

Error  Type 

ALBERT 

Undefined  plane  in  arbitrary  con¬ 
vex  polyhedron  (ARB)  input 

Non- fatal 

Four  points  describing  a  face  of 
of  ARB  are  not  in  a  plane 

Non-fatal 

Error  in  numering  points  of  ARB 

Non- fatal 

VOLUM 

Next  region  number  negative 

Fatal 

MAIN 

No  storage  available  for  region 
identification  data 

Fatal 

CALC 

Error  in  body  type  number 

Fatal 

No  normal  found  for  arbitrary 
surface 

Non-fatal 

G1 

Error  in  body  type  number 

Non-fatal 

No  intersect  found  in  region 

Non- fatal 

Error  in  body  numoer  of  inter¬ 
sected  RPP 

Non-fatal 

Error  in  surface  number  of  inter¬ 
sected  RPP 

Non-fatal 

No  entries  in  region  enter  table 

Non-fatal 

No  region  found  tor  present  point 

Non-fatal 

Distance  to  next  region  is  less 
than  zero 

Non-fatal 

WOWI 

Error  in  body  type  number 

1  Non-fatal 

ARS 

Data  in  hit  table  is  in  error 

Non-fatal 

RPP 

More  than  two  surfaces  of  RPP 
were  intersected 

Non-fatal 

AREA 

Storage  for  area  data  exceeded 

Fatal 
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OPTIONAL  ROUTINES 

Three  optional  subroutines— TESTG,  VOLUM,  and  AREA— are  available  to 
the  user  for  performing  special  computations. 

Subroutine  TESTG 

This  routine  may  be  used  to  trace  a  specified  number  of  rays  in  any 
portion  of  the  target.  These  special  computations  are  useful  in  checking 
the  input  data  target  geometry  and  region  specifications. 

Subroutine  VOLUM 


This  routine  may  be  used  to  compute  the  volume  of  each  region  contained 
within  a  specified  portion  of  the  target.  An  imaginary  box  is  specified,  and 
the  volume  of  each  region  in  the  box  is  computed. 

Subroutine  AREA 


This  routine  may  be  used  to  compute  the  presented  area  of  the  target  as 
viewed  from  the  specified  attack  angle.  The  presented  area  data  is  categor¬ 
ized  according  to  the  component  identification  number  of  the  first  component 
struck  by  the  rays  and  to  the  total  target. 
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SECTION  II 
MATHEMATICAL  MODEL 


This  section  presents  the  mathematical  model  employed  in  the  simulation 
to  perform  the  ray  tracing  calculations.  Descriptions  are  provided  for  six 
major  elements: 

lf  Intersection  distance  calculations  involving  the  various  geometrical 
shapes . 

2.  Normal  distance  calculations  involving  the  various  geometrical 
shapes. 

3.  Grid  plane  and  ray  starting  point  geometry. 

4.  Solutions  to  quartic  and  cubic  equations. 

5.  Data  arrangement  in  the  principal  (MASTER-ASTER)  storage  arrqy. 

6.  Conceptual  type  flowcharts  for  the  major  control  and  input 
processing  subroutines,. 

In  each  section  the  appropriate  geometrical  relationships  are  described , 
necessary  assumptions  and  constraints  delineated,  and  required  algebraic 
relationships  established . 

The  equations  in  the  mathematical  model  that  are  boxed  are  the  major 
equations  that  are  used  in  the  simulation  model  that  gave  rise  to  a  FORTRAN 
statement.  The  same  equation  can  be  found  in  the  appropriate  section  of 
the  simulation  model  and  is  also  shown  as  a  boxed  equation  for  ease  of 
cross-referencing . 
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RECTANGULAR  PARALLELEPIPED  (SUBROUTINE  RPP) 


Subroutine  RPP  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  rectangular  parallelepiped*  The  intersection  distances,  RIN 
and  ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and  the 
equations  defining  the  six  bounding  planes  of  the  RPP* 


The  rectangular  parallelepiped  must  have  bounding  surfaces  parallel  to 
the  coordinate  axes  *  The  bounding  planes  of  the  RPP  are  therefore  defined 
by  specifying  the  maximum  and  minimum  values  of  the  x,  y,  and  z  coordinates 
as  shovn  in  Figure  10* 


ROUT 


max 


max 


X  intersect  point  on  body 

XB  starting  point  of  ray 

WB  direction  cosines  of  ray 

RIN  distance  to  entry 

intersect 


max 


ROUT 


Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 


z^)  is  a  fixed  point  on  the  ray. 

W  )  is  the  direction  cosines  of  the  ray 
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Thus,  for  any  value  of  the  scalar,  S,  Equation  (1)  will  give  a  point 
X  (x,y , z)  along  the  ray. 

Therefore,  the  distance  to  any  one  of  the  six  surfaces  of  the  RPP  can  be 
expressed  as 

J_  _I_ 

1  1,2 

2  3,4  (2) 

3  5,6 


where  J  =  1,  2,  3  for  the  x,  y,  and  z  coordinates,  respectively,  and 
I  =  1-6  for  the  six  surfaces  of  the  RPP .  The  surfaces  are  denoted  as 
follows . 


XS,  =  X  .  plane  coordinate 
1  min 


XS„  =  X  plane  coordinate 
2  max 


XS„  =  Y  ,  plane  coordinate 
3  min  K 


XS.  =  Y  plane  coordinate 
4  max 


XS,.  =  Z  plane  coordinate 
5  min 


XS.  =  Z  plane  coordinate 
6  max 


When  WB  =  0,  the  ray  is  parallel  to  the  J  pair  of  planes  and  no  intersection 
1 

will  occur.  When  S^  <  0,  the  ray  is  moving  away  from  the  plane  and  no  inter¬ 
section  with  the  pHane  will  occur. 


Knowing  S  ,  the  distance  from  JOS  to  the  intersection  of  the  plane,  the 
y-z  coordinates  (assume  an  X  plane  for  illustration)  can  be  determined  by 
ray  Equation(l) as  follows. 


XI  =  XB  +  WB  •  ST 
C  C  C  I 


(3) 


where  C  represents  the  y  or  z  coordinate. 
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The  given  intersection,  Xl ,  with  an  X  plane  Is  within  the  boundary  of 
the  RPP  if  the  y-z  coordinates  of  the  intersect  are  within  the  Y  and  Z 
bounding  planes.  Therefore,  XI  (the  intersection  with  an  X  plane)  is  within 
the  boundary  of  the  RPP  when 


Y 

< 

Y 

<  Y 

min 

c 

max 

Z  , 

< 

z 

<  Z 

min 

c 

~  max 

(4) 


where  Y  and  Z  are  the  intersect  coordinates  of  the  X  plane, 

RIN  is  the  minimum  S  that  satisfies  Equation  (4),  and  ROUT  is  the  maximum 
Sj  that  satisfies  Equation  (4).  If  there  are  no  intersects  that  satisfy 
Equation  (4) ,  ROUT  is  set  to  -1050  and  RIN  Is  set  to  1050  to  represent  a 
miss  of  the  RPP. 
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BOX  (SUBROUTINE  BOX) 

Subroutine  BOX  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  box.  The  intersection  distances,  RIN  and  ROUT,  are  calculated 
by  solving  simultaneously  the  ray  equation  and  the  equations  defining  the 
sides  of  the  box* 

The  box  is  defined  by*  a  vertex,  V,  and  three  mutually  perpendicular 
length  vectors*  These  three  vectors  represent  the  height,  width,  and  length 
of  the  box  as  shown  in  Figure  11* 


intersect  point  of  ray 

starting  point  of  ray 

direction  cosines  of 
ray 

vertex  of  box 

three  mutually  per¬ 
pendicular  length 
vectors  of  the  box 


RIN 

distance  to 

intersect 

entry 

ROUT 

distance  to 

intersect 

exit 

FIG*  II*  Box 
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Any  Intersect  X  along  ray  WB  from  point  XB  is  given  by 


X  =  XB  +  WB-S 


(5) 


where 


XB  (xo.yQ,Zo)  is  a  fixed  point  on  the  ray. 

WB  (wx*Wy*wz)  is  the  direction  cosines  of  the  ray. 

Thus,  for  any  value  of  the  scalar,  S,  Equation  (5)  will  give  a  point 
X  (x,y,z)  along  the  ray. 

For  any  pair  of  sides  of  the  box,  one  side  contains  the  vertex,  V, 
and  the  other  side  contains  the  point  V  +  iL,  where  i  =  1,  2,  or  3  for  the 
length  vector  perpendicular  to  the  pair  of  sides  considered.  The  equation 
of  the  side  containing  V  is  given  by  the  dot  product 

(V-X)  -  Hi  =  0  (6) 

where  X  is  any  point  on  the  side  and  i  is  equal  to  1,  2,  or  3  for  the  length 
vector  perpendicular  to  the  intersected  sides.  The  equation  of  the  opposite 
side  of  the  box  containing  V  +  iL  is  given  by  the  dot  product 


(V  +  Hi  -  X)  *  H  -  0 


(7) 


The  intersection  distances  of  the  ray  with  the  box  are  obtained  by 
substituting  the  X  of  Equation  (5)  into  Equations  (6)  and  (7) giving 


or 


s1  = 

(V-XB)  •  1± 

V 

WB  -H^ 

containing  V  and 

S  V+H 

(V-XB)  *  H4 

*=  - - - - L  f 

WB 

s1 

-  4. 

V+H 

v  WB-Hi 

(8) 


WB-H. 


<9> 
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for  the  side  containing  V+H*.  For  a  given  pair  of  intersects,  RIN  is  the 
smaller  and  ROUT  the  larger.  From  Equation (9) 


i  _  gi  ,  gj-Hi 
V+B  ^  V 

The  sign  of  -  S'*"  is  determined  by  the  sign  of  WB’H  since  H  *H  is 

V+H  V  xii 

always  positive* 

Therefore  s 

RIN,  =  s\,  and  ROUT.  =  S 

i  V  i  V+H 


for 


or 


for 


WB-H,  >  0 


RIN,  =  S1, rj_„  and  ROUT 
1  V+H  1 


WB  <  0. 


RIN  is  the  maximum  of  the  RIN^,  and  ROUT  is  the  minimum  of  the  ROUT^.  For 
any  ROUT^  <  0  the  ray  cannot  intersect  the  box  so  ROUT  is  set  to  -1050  and 
RIN  is  set  to  10-*®. 
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SPHERE  (SUBROUTINE  SPH) 


Subroutine  SPH  calculates  the  Intersection  distances  (if  any)  of  a  ray 
in  space  and  a  sphere.  The  intersection  distances,  RIN  and  ROUT,  are  calcu¬ 
lated  by  solving  simultaneously  the  ray  equation  and  the  equation  defining 
the  sphere  (see  Figure  12) . 


ROUT 


XB 

WB 

7 

R 

RIN 

ROUT 


FIG.  12.  Sphere 


starting  point  of  ray 

direction  cosines  of  ray 

center  of  sphere 

radius  of  sphere 

distance  to  entry 
intersect 

distance  to  exit 
intersect 


Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 
X  =  XB  +  WB-S 


(10) 


where 


XB  (x  ,y  ,z  )  is  a  fixed  point  on  the  ray. 

O  DO  J 

WB  (W  ,W  ,W  )  is  the  direction  cosines  of  the  ray, 
x  y  z  J 

Thus,  for  any  value  of  the  scalar,  S,  Equation(lO)  will  give  a  point 
X  (x,y,z)  along  the  ray. 


The  equation  of  a  sphere  of  radius  R  about  the  point 
any  point  X  on  the  surface  is 


(V  ,V  ,V  ) 
x  y  z 


for 


(X-V)2 


(11) 
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Substituting  the  X  of  Equation  (lO)  into  Equation  (ll)  results  in 
("XB  +  WB-S  -  R2  **  0 


Let 


DX  =  XB-V 


Therefore , 

("DX  +  WB‘S  )2  -  R2  =  0 

Rearranging  Equation  (12)  for  a  quadratic  equation  in  'S'  gives 

S2(wB2)  +  2S  (  DX-WB  )+  DX2  -  R2  *  0 

WB  (W  ,W  »W  )  by  definition  are  the  direction  cosines  of  the  ray. 
x  y  z 


Thus  j 

—2  —2  —  2  —  2 
WB  *=  W  +  W  +  W  *1.0 
x  y  z 

Let 

B  -  coefficient  of  2S,  (DX'WB) 

C  =  constant  term,  (DX^-R^) 

Then  Equation(l3)  becomes 

S2  +  2BS  +  C  -  0 


Solving  for  S 


2 

If  (B  -C)  <  0,  no  real  intersection  occurs. 

If  (B2-C)  =  0,  the  ray  is  tangent  to  the  sphere. 


(12) 


(13) 
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There fore , 


(U) 

(15) 


In  the  case  where  (B^-C)  <  0,  Subroutine  SPH  sets  RIN  *  10^°  and  ROUT  =  -105° 
to  represent  a  miss  condition* 

The  constant  term  C  <  0  implies  that  ISJf2  <  R2,  which  means  that  the 
point  XB  (xQ,yo,zo)  is  within  the  sphere-  Therefore,  Subroutine  SPH  sets 

RIN  =  -10 ^  and  ROUT  *  —  B  +  -C . 
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RIGHT  CIRCULAR  CYLINDER  (SUBROUTINE  RCC) 


Subroutine  RCC  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  right  circular  cylinder.  The  intersection  distances,  RIN 
and  ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and  the 
equations  defining  the  right  circular  cylinder  (see  Figure  13) . 

The  right  circular  cylinder  is  defined  by  vertex  V,  height  vector  H 
through  the  center  of  the  cylinder,  and  radius  R. 


RIN 


XB  starting  point  of  ray 

WB  direction  cosines  of  ray 

V  vertex  of  the  RCC 

H  height  vector  of  RCC 

E  vector  from  vertex  to 

point  of  contact 

R  radius  of  RCC 

RIN  distance  to  entry 

intersect 

ROUT  distance  to  exit 

intersect 


FIG.  13,  Right  Circular  Cylinder 


Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 
X  =  XB  +  WB*S 


(16) 
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where 

X5  <Vyo*V  is  a  point  on  the  ray  * 

WB  (wxiWy>wz)  Is  the  direction  cosines  of  the  ray* 

Thus,  for  any  value  of  the  scalar,  S,  Equation  (16)  will  give  a  point 
X  (x,y,z)  along  the  ray  as  shown  in  the  figure. 

Let  h  equal  the  ratio  on  the  H  vector  of  the  height  of  the  hit  on  the 
cylindrical  surface  as  follows 


_  E*H  _  j  eI cos  0 

"  CT  |H|  (17) 


Therefore  the  height  of  the  hit  with  respect  to  the  H  vector  is  hH.  Three 
sides  of  a  right  triangle  can  be  defined  by  the  vector,  E,  the  height  of  the 

hit  on  the  H  vector,  hH,  and  the  radius  of  the  right  circular  cvlinder,  R. 
Therefore 


E*E 


r2  + 


2 - 

h  H-H 


(18) 


from  the  Pythagorean  theorem. 

The  vector,  E,  can  be  expressed  as 


Therefore  , 


E  =  S*WB  -  (V-XB) 


E-E  =  S2  +  2S*  WB  (XB-V)  +  (XB-V) - (XB-V) 


Also  from  Equations(l  7)  and  (19) 

h  =  (S-WB  +  XB-V) ~H 


and 


,2  ,  S2(wb-h)2  +  2S-WB-h(xb-v)-H  +  [(xB-v)'H  |2 

1h-h)2 


(19) 


(20) 


(21) 
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Substituting  Equations(20)  and  (21)into  Equation  (18)  gives: 


(22) 


Let 


t  equal  the  coefficient  of  S 
Af  equal  the  coefficient  of  2S 
pf  equal  the  constant  term 


Therefore  Equation  (22)  becomes 

xS2  -  2X 'S  +  y’  *  0 

From  Equation  (22)  and  (23)  t  =  0  if  WB  is  parallel  to  the  H  vector. 
Therefore  no  intersection  with  the  side  of  the  cylinder  can  occur. 

For  X  *»  X'/t  and  u  =  u'/t  Equation  (23)  becomes 


(23) 


S 


2 


2XS  +  v  =  0 


Solving  for  S 

S  =  X  +  /x2-p 

2 

If  (X  -y)  <  0,  no  intersection  with  the  cylinder  occurs. 
2 

If  (X  -y)  =  0,  the  ray  is  tangent  to  the  cylinder. 


Therefore , 


(24) 

(25) 
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for  the  intersect  points  with  the  cylindrical  surface. 

_  when  an  intersect  occurs  in  the  plane  containing  V  such  chat  vector 

E  Is  within  the  plane,  then  vector  E  is  perpendicular  to  the  H  vector. 
Therefore, 


E-H  =  0 


(26) 


Substituting  Equation  (19)  into  Equation  (26)  and  solving  for  S  (S  can  equal 
RIN  or  ROUT  depending  on  the  direction  of  the  ray)  results  in 


WB-H 


(27) 


If  Sy  0  the  ray  is  moving  away  from  the  V  plane  and  no  intersection 
will  occur. 


_  _  When  an  intersect  occurs  in  the  plane  containing  V+H  such  that  the  vector 
E-H  is  within  the  W-H  plane,  then  vector  E-H  is  perpendicular  to  the  IT  vector. 
Therefore 


(E-H) ’H  «  0 


(28) 


Substititing  Equation (19)  into  Equation (28)  and  solving  for  S  (S  can  equal 
RIN  or  ROUT  depending  on  the  direction  of  the  ray)  results  in 


V+H 


H-H  +  CV-XB) -H 
WB-H 


(29) 


,,  SV+H  —  the  r3y  is  m°ving  away  from  the  V+H  plane  and  no  intersection 
will  occur. 


If  WB-H  =>  0,  the  ray  Is  parallel  to  the  planar  surfaces  and  no  intersections 
with  either  plane  will  occur. 

If  WB-H  *  0,  intersects  will  occur  with  the  planar  surfaces  and  the 
cylindrical  surface.  For  a  valid  intersect  on  the  cylindrical  surface  it 
must  occur  between  the  two  planar  surfaces  of  the  RCC.  For  a  valid  inter¬ 
sect  to  be  on  a  planar  suface  it  must  occur  within  the  cylindrical  cross 
section  of  the  RCC, 
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RIGHT  ELLIPTIC  CYLINDER  (SUBROUTINE  REC) 


Subroutine  REC  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  right  elliptic  cylinder.  The  intersection  distances,  RIN  and 
ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and  the 
equations  defining  the  right  elliptic  cylinder  (eee  Figure  14) , 


The  right  elliptic  cylinder  is  defined  by  bas,e  vertex  V*  height 
vector  H,  semi-major  axis  A,  and  semi-minor  axis  B, 


ROUT 


XB~  starting  point  of  ray 

WB  direction  cosines  of  ray 

V  vertex  of  the  REC 

H  height  vector  of  the  REC 

A  semi -major  axis 

W  semi-minor  axis 

fT  vector  from  vertex  to 
point  of  contact 


PIG.  14.  Right  Elliptic  Cylinder 


Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 


X  =  XB  +  WR*S 


where 


XB  (x  »y  ,z  ) 
o  o  o 

WB  (W  _,W  ,W  ) 


is  a  fixed  point  on  the  ray. 

is  the  direction  cosines  of  the  ray. 


(30) 


29 


TN  4565-3-71  Vol  II 


Thus,  for  any  value  of  the  scalar,  S,  Equation  (30) will  give  a  point 
X  (x,y,z)  along  the  ray  as  shown  in  Figure  14 . 

The  general  form  of  an  ellipse  which  is  perpendicular  to  the  Z 
axis  is 


(31) 


or 


,2  2 

b  x 


+  a 


2  2 
y 


2,2 

a  b 


(32) 


where 


A  and  b 


2 


B  .  B 


The  origin  of  the  ray  XB  and  the  direction  cosines  of  the  ray  WB  can  be 
transformed  into  the  coordinate  system  of  the  REC,  where  V  now  becomes  the 
origin,  the  x— axis  is  along  the  semi— major  axis,  the  y-axis  is  along  the 
semi-minor  axis,  and  the  z-axis  is  coincident  with  the  H  vector,  by  the  dot 
products 

VPA  =  (V  -  XB)  .  A' 

VP  -  (V  -  XB)  •  B 
B 

W  =  WB  *  A 
A 

VL  "  WB  *  B 

D 


The  intersection  of  the  elliptic  cylinder  of  Equation  (32)  and  the  trans¬ 
formed  ray  from  the  above  dot  products  can  now  be  considered  *  where  the 
new  intersect  equation  is 


E  -  VP  +  S-W 


C33) 


which  on  substituting  into  Equation  (32)  yields 

b2(WA  +  WA  •  S)2  +  a2(VPB  +  WB  *  S)2  =  a2b2 


(34) 
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or 


(b-b  )( 


VP.  +  w. 


f  +(a.a)( 


VP  +  w 


)2  =  (  a*a)(b*b ) 


Collecting  terms  and  regrouping  for  a  quadratic  equation  in  S  results  in 


S2  [(b-b 

)(wA)2  + 

(a-a)(wb 

P] 

-2s[(  B'-B 

)(wA-wA) 

+  (  a-a)1 

[vpb-wb  )] 

+[(b-b)( 

-aM 

A- A  )(vPB 

)2  -  (a- a) (b-b) 

=  0 

(35) 


Let 

i  equal  the  coefficient  or  S 
X*  equal  the  coefficient  of  2S 
y 1  equal  the  constant  term 

Therefore  Equation  (35)  becomes 

TS2  -  2X'S  +  y'  -  0  06) 

For  X  =  X '  /  t  and  u  =  uVt  Equation  (36)  becomes 

I 

S2  -  2*-S  +  M  =  0 

Solving  for  S 


If  (X2-p)  <  0,  no  intersection  with  the  elliptic  cylinder  occurs. 

If  (*2-y)  =0,  the  ray  is  tangent  to  the  cylinder. 

*y 

If  the  c^eff icient_of  S  ,  x»  is  zero*  and  since  from  Equation  (35) 

W  =  WB-A  =  0  and  W„  =  WB-B  =  0  when  the  ray  is  parallel  to  the  H  vector 
A  K  _  _ 

(or  perpendicular  to  the  A  and  B  vectors)  intersections  can  only  occur  with 
the  planar  surfaces. 


31 


TN  4565-3-71  Vol  II 


Therefore,  possible  candidates  for  RIN  and  ROUT  with  the  quadratic  surface  are 


(37) 


(38) 


When  an  Intersect  occurs  in  the  plane  containing  V 


(39) 


and  for  an  intersect  occurring  in  the  V+H  plane 


SV+H 


sy  +  (h-h>/wh 


(40) 


Therefore,  RIN  =  Sy  and  ROUT  =  when  W^  >  0,  or  RIN  *  S  and  ROUT  «= 

when  <  0-  When  *»  0,  the  ray  Is  parallel  to  the  two  planes#  and  Inter¬ 
sections  can  occur  only  with  the  quadratic  surface. 


When  RIN  or  ROUT  Is  an  intersect  with  the  quadratic  surface  the  intersect 
must  lie  between  the  two  planar  surfaces  to  be  a  valid  intersect.  Therefore, 


(41) 


where  S  is  either  RIN  or  ROUT  for  the  quadratic  surface. 


When  RIN  or  ROUT  Is  an  intersect  with  a  planar  surface  the  intersect  must 
lie  within  the  elliptic  cross  section  to  be  a  valid  intersect.  Therefore,  the 
evaluation  of  Equation  (36)  must  be  negative.  Therefore, 


-  2AS  4*  \i  <  0 


where  S  is  the  RIN  or  ROUT  value. 


(42) 
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RIGHT  TRUNCATED  CONE  (SUBROUTINE  TRC) 

Subroutine  TRC  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  right  truncated  cone.  The  intersection  distances,  RIN  and 
ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and  the 
equations  defining  the  right  truncated  cone. 

The  right  truncated  cone  is  defined  by_a_vertex, V,  a  height  vector,  H , 
a  radius  at  the  vertex,  Rg,  and  a  radius  at  V4-H  R^,  (flee  Fi8ure 


X 


Eb 


XB  starting  point  of  ray 

WB  direction  cosines  of  ray 

H"  height  vector  of  TRC 
V  vertex  of  the  TRC 

Rg  radius  of  the  base  of 
the  TRC 

Rq.  radius  of  the  top  of 
the  TRC 

RIN  distance  to  entry 
intersect 

ROUT  distance  to  exit 
intersect 


FIG.  15.  Right  Truncated  Cone 


Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 

X  =  XB  +  WB • S  (A3) 

where 

XB  (x  ,y  ,  z  )  is  a  fixed  point  on  the  ray . 
o  o  o 

WB  (W  ,W  W  )  is  the  direction  cosines  of  the  ray. 
x  y  z 

Thus,  for  any  value  of  the  scalar,  S,  Equation (43)  will  give  a  point 
X  (x,y,z)  along  the  ray  as  shown  in  the  figure. 
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Let  Q  be  a  point  along  the  height  vector  such  that  the  vector  (Q-X)  Is 
perpendicular  to  the  height  vector  H*  or 

(Q-X) -H  =  0  (44) 

Q  can  then  be  expressed  as 

Q  -  V  +  YH  (45) 

where  0  £  Y  £  1.0,  and  YH  is  the  distance  from  T  to  Q\  Substituting  Equations 
ft 3)  and  (45)  Into  Equation  (44)  results  In 

(?+YH-XB-UB'S)-H  -  0 
Solving  for  Y  results  in 

(XB-V)  *H  +  WB*H*S 

Y  =  - - — -  (46) 

H*H  K  ' 


The  radius  of  the  TRC  at  point  Q  is  expressed  by 

R  -  (Rx-Rb)  y  +  Rb  (47) 

Three  sides  of  a  right  triangle  can  be  defined  by  the  height  of  the  hit  on 
the  H  vector*  YH,  the  radius  of  the  TRC  at  Q,  R*  and  the  vector  between  V 
and  X-  Therefore, 

fv-x>2  =  (YH)2  +  R2  (48) 


from  the  Pythagorean  theorem.  Substituting  Equations  (43),  (46)*  and  (47)  Into 
Equation  (48)  and  solving  for  S*  the  following  quadratic  equation  in  S  is 
obtained . 


(49) 
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where 


1  -  (VRb)|*B  - 

f  (v-CT  )-h] 


C2  =  **  - 


Let 

,  2 

x  equal  the  coefficient  of  S 
Xf  equal  the  coefficient  of  25 
U 1  equal  the  constant  term 


Therefore  Equation  (49)  becomes 

tS2  -  2X 'S  +  u'  =  0  (50) 

From  Equations  (49)  and  (50)  T  =  0  only  when  WB  is  parallel  to  the  H  vector 
and  Rt  = 

cylinder  could  take  place. 

For  A  =  Ar/t  and  u  =  jj  1  / ^  Equation  (50)  becomes 


V 


For  those  conditions  no  intersections  with  the  side  or  the 


S 


2 


2XS  +  M  =  0 


Solving  for  S 

S 


If  (X^-u)  <  0,  no  intersection  with  the  TRC  occurs. 
If  (X^-u)  -  0,  the  ray  is  tangent  to  the  TRC. 

If  (X^-p)  >  0,  then: 

RIN  =  X  -  A^-v 
ROUT  =  X  +  A2-p 


(51) 

(52) 


are  the  possible  intersect  points  with  the  quadratic  surface. 
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From  Equation  (45),  Y  must  satisfy  0  <_  ¥  >_  1.  Substituting  Equation  (46) 
for  ¥  results  in 


0  £  (XB-V)-H  +  WB-H-S  <  H*H 


(53) 


for  S  to  intersect  the  real  part  of  the  cone,  where  S  can  equal  either 
RIN  or  ROUT. 

When  an  intersect  occurs  j.n_the  V  plane  such  that  the  vector  (X-V)  lies 
within  the  plane,  the  vector  (X-V) is  perpendicular  to  the  H  vector.1 
Therefore, 


(X-V) -H  =  0 

From  the  figure  it  can  be  seen  that 


(X-V)  =  WB'S  -  (V-XB) 


(54) 


(55) 


Substituting  Equation  (55)  into  Equation  (54)  and  solving  for  S  (S  can 
equal  RIN  or  ROUT  depending  on  the  direction  of  the  ray)  results  in 


S  - 

v  WB.H  (56) 

If  Sy  5.  the  ray  is  moving  away  from  the  V  plane,  and  no  intersection 
will  occur. 

For  an  intersect  inthe  V  plane  to  be  valid, the  length  of  the  vector 
from  V  to  the  intersect  X,  or  (X-V),  must  be  equal  to  or  less  than  the  radius 
of  the  base  plane,  R^,  or 

Length  of  (X-V)  <_  length  of 

and 

(X-V) • (X-V)  £  R  -R 
B  B 

From  Equation  (55) 

(X-V)  =  S-WB  -  (V-XB) 
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or 


[s  *  WB-  (V-XB)J  [s  *  WB- ( V-XB)  ]  <  Rg2 


which  results  In 


2S-[wB* (V-XB)]  +  (V-XB)2 


(57) 


Therefore,  for  a  valid  intersect  in  the  V  plane  to  occur.  Equation (57) must 
be  satisfied  for  S  equal  to 

When  an  intersect  occurs  in  the  V+H_plane  such  that  the  vector  |X-(V+H)] 
lies  within  the  plane,  the  vector  (X-(V+H)]  is  perpendicular  to  the  H 
vector-  Therefore , 

[ (X-V) -H ] *H  =  0  (59) 


Substituting  Equation  (55)  Into  Equation  (54)  and  solving  for  S  (S  can  equal 
RIN  or  ROUT  depending  on  the  direction  of  the  ray)  results  in 


(59) 


If  Vh^0' 


the  ray  is  moving  away  from  the  V+H  plane,  and  no  intersection 


occurs * 


For  an  intersect  in  the  V+H  plane^to  be  valid,  the  length  of  the  vector 
from  V+H  to  the  intersect  X,  or  [X- (V+H)  ]  t  must  be  equal  to  or  less  than  the 
radius  of  the  top  plane,  R^,  or 

Length  of  [(X-V)-H]  length  of 


and 

[(X-V)- Hj'[(X-V)-H]  < 


From  Equation  (55) 


(X-V)  =  S  *WB  -  (V-XB) 
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or 

[S -WB- (V-XB)-Hj  [S-WB-(V-XB)-H]  <  E^2 


which  results  in 


Therefore,  for  a  valid  intersect  in  the  V+H  plane  to  occur.  Equation  (60)  must 

be  satisfied  for  5  equal  to  S  . 

V+H 

If  WB  *  H  *=  0  the  ray  is  parallel  to  the  planar  surfaces,  and  no  inter¬ 
sections  with  either  plane  will  occur. 
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ELLIPSOID  OF  REVOLUTION  (SUBROUTINE  ELL) 

Subroutine  ELL  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  an  ellipsoid  of  revolution.  The  intersection  distances,  RIN 
and  ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and  the 
equation  defining  the  ellipsoid  of  revolution  (see  Figure  16). 


ROUT 


XB  starting  point  of  ray 

WB  direction  cosines  of  ray 

C  length  of  the  major 
axis 

F  iF  °f  the  ellipsoid 

RIN  distance  to  entry 
intersect 

ROUT  distance  to  exit 
intersect 


FIG,  16,  Ellipsoid  of  Revolution 

Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 

T =  XB  +  WB  *S  (61) 

whe  re 

XB  (x  ,y  )  is  a  fixed  point  on  the  ray, 
o  o  o 

WB  (W  jW  ,W  )  is  the  direction  cosines  of  the  ray. 
x  y  z 
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Thus,  for  any  value  of  the  scalar,  S,  Equation  (6l)  will  give  a  point 
X  (x,y,z)  along  the  ray. 

For  any  point  X  on  the  surface  of  an  ellipsoid  with  foci  Fa  and  FK  and 
major  axis  length  C,  the  equation  is  b 


'(X-F  )2  +  \/(X-F,  )2  =  C 

a  ’  b 


where  the  terms  \JCX-Fj2  and  Vo^Ffa)2  are  the  distance  from  point  X 
on  the  surface  of  the  ellipsoid  to  the  foci. 

Substituting  Equation  (61)  into  Equation  (62)  results  in 
l/(xB  +  WB-S  -  Fj2  +  (XB  +  WB-S  -  Fj2  =  C 


D  =  XB  -  F 
1  a 

D2  -  -  7b 


The ref ore 


(Dj  +  WB*sj^  +  V(D2  +  WB*s)  «  C 


V(dx  +  WB-s)2  »  C  -  V(  d2  +  WB*s)2 
Squaring  both  sides  of  Equation  (63) and  collecting  term  gives 


—  2  —  2  2  —  _ 

°1  "  °2  "  C  (2Di  •  WB  -  2D2  •  HBj 

ft — - \0 

-2c  A  -2c  s  my) 

f(D  +  WB-S  Y 
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Letting 


(the  first  term) 


and 


B  = 


2D,  -  WB  -  2D  *  WB 
1  _  2 

-2C 


(the  second  term) 


gives 


A  +  B*S 


™  .  V  2 


+  WB  *  S 


(65) 


Squaring  Equation  (65) >  collecting  terms  for  a  quadratic  in  S,  and  noting 

that  WB  (W  >W  fW  )  by  definition  are  the  direction  cosines  of  the  ray  and 
x  y  z 

WB^  ~W  ^  +  W  ^  +  W  2  =  gives 

x  y  z 


S 


2 


2> 


0 


(66) 


Letting 

2 

t  =  coefficient  of  S' 
^  ’  =  coefficient  of  2S 
M1  =  constant  term 


gives 


+  2*'S  +  m'  =  0 


If  X  =  X'/t  and  ij  =  jj'/t  then  S’'  +  2XS  +  ]j=0  and 


(67) 
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Solving  for  S 

S  =  -  X  + 


0 

If  (X  -y)  <  0,  no  real  intersection  occurs. 

If  <X2-y)  =0,  the  ray  is  tangent  to  the  ellipsoid* 


(68) 


Therefore , 


RIN 


-  X 


-  /l 2 -i 


ROUT  «=  -  A 


+  JJZ 


In  the  case  where  (X2-y)  <  0  Subroutine  ELL  sets  RIN 
to  represent  a  miss  condition. 


105°  and  ROUT 


-10 


(69) 

(70) 
50 
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RIGHT  ANGLE  WEDGE  (SUBROUTINE  RAW) 


Subroutine  RAW  calculates  the  intersection  distances  (if  any)  of  a  ray 
In  space  and  a  right  angle  wedge.  The  intersection  distances*  RIN  and  ROUT, 
are  calculated  by  solving  simultaneously  the  ray  equation  and  the  equations 
defining  the  sides  of  the  right  angle  wedge, 

_The  right  angle  wedge  is  defined  by  vertex  V  and  length  vectors  H-, ,  H2* 
and  H3.  The  irighl  angle  wedge  has  five  sides;  the  diagonal  side  Is  always 
opposite  the  length  vector  as  shown  in  Figure  17  ■ 


RIN 


x-(v+hl)] 


ROUT 


vertex  of  the  RAW 

length  vectors  of  the  RAW 

point  on  a  plane  where  the 
ray  intersects  the  plane 

starting  point  of  ray 

direction  cosines  of  ray 

distance  from  XB  to  point 
where  ray  intersects  plane 


RIN  distance  to  entry  intersect 

ROUT  distance  to  exit  intersect 


FIG,  17,  Right  Angle  Wedge 
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Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 

X  *  XB  +  WB-S  (71) 

where 

XB  (x  ,y  ,z  )  is  a  fixed  point  on  the  ray* 
o  o  o 

WB  (W  ,W  tW  )  is  the  direction  cosines  of  the  ray* 
x  y  2 

Thus  |  for  any  value  of  the  scalar,  S,  Equation  £71)  will  give  a  point 
X  (x,y,z)  along  the  ray. 

Each  of  the  five  planes  of  the  right  angle  wedge  can  be  expressed  in 
terms  of  any  vector  within  the  plane,  and  the  normal  to  the  plane,  since 
the  dot  product  of  the  two  is  equal  to  zero* 

Therefore,  the  dot  product  of  a  vector  from  any  point  X  in  the  plane  to 
the  vertex  (or  vertex  p^us  height  vector)  and  the  length  vector  H  perpendicular 
to  the  side  containing  X  can  be  expressed  for  the  five  sides  as  follows: 

For  the  rectangular  side  perpendicular  to 
(X-V)-!^  -  0 

For  the  rectangular  side  perpendicular  to 
(X-V)‘H2  *  0 

For  the  triangular  side  containing  V 
(X-V)'H3  -  0 

For  the  triangular  side  containing 
(X  -  (V+H3) ] -B3  -  0 
For  the  slanted  side  opposite 

[X  -  (W^)  ]  ■  (Hj2-  H2  +  =  0 
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The  term  ^  +  H^-H^  is  the  normal  to  the  slanted  side  and  is  derived 
as  follows: 


FIG.  18.  Right  Angle  Wedge  Normal  Derivation 
From  Figure  18,  N  is  perpendicular  to  the  slanted  edge  and  is  equivalent  to 


N  =  aH1  +  8H2 


where 


Let 


a  and  8  are  proportionality  constants 

and  d2  equal  the  magnitudes  of  vectors  and  H2 


respectively. 

Therefore,  by  similar  triangles 


H„ 


aHl  H2  “2 

8H2  *  Hx  and  a  =  8  - 


H, 


Therefore, 


H- 


N  -  8  - 2~  *  Hi  +  6-H. 

H.  1  2 


and 


H 


r~  •  K  -  “22  •  «!  +  Hj2  •  H2 
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2  — 

Since  is  a  scaler  which  affects  the  length  of  N,  it  can  be  ignored. 

“fT 

Therefore  N  =  +  Rj2*^  since  H2  -  H-H  =  H2 

Substituting  ray  Equation  (71)  into  each  of  the  five  side  equations  and 
solving  for  S,  the  distance  from  the  ray  origin,  XB,  to  each  side*  results  in 

For  the  rectangular  side  perpendicular  to 

s  (V-ffiV  Hi 
3  WB-H^ 

For  the  rectangular  side  perpendicular  to 
(V-XB) * H2 

si  -  ----- 

WB*H2 

For  the  triangular  side  containing  V 

(V-XB) *  H 

55  =  —  — 

wb-h3 

For  the  triangular  aide  containing  V+H^ 

(V-XB) • H  +  (H  )2 

56  - == - “ 

wb*h3 

For  the  slanted  side  opposite 

(V-XB) *N  +  (H  • N) 

S2  =  - — - 

WB-N 

("l  5l)  ("2)  -  Hj  (S;)  -[(B-V)-H2](ii^) 

2  (hIXSb-hJ  +  (h2)(™-52) 

N  =  H2*H9  +  H2»H;l  and  H^H  =  0 


and 


since 
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where 

N  =  H12*  H2  +  H2-  ^ 

In  the  above  distance  equations  if  the  value  of  the  numerator  and  the 
denominator  are  such  that  the  value  of  the  distance,  S,  would  be  negative, 
the  ray  is  moving  away  from  the  RAW  and  no  intersection  will  occur. 

If  the  ray  hits  the  RAW,  there  will  be  two  intersects.  RIN  will  be 
the  minimum  positive  S,  and  ROUT  will  be  the  maximum  positive  S. 

In  order  to  simplify  computation  let 


(72) 

(73) 

(74) 

where 

i  -  1,  2,  3 

Therefore,  the  distance  equations  become 


substituting  Equations  (72),  (73),  and 
from  the  previous  page  results  in 


(75) 

(76) 

(77) 

(78) 

(74)  into  the  expression  for  S2 


S2  =  (Al‘A2*PlA2“P2Al)/(A2Gl+AlG2) 


(79) 
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ARBITRARY  POLYHEDRON  (SUBROUTINE  ARB) 


Subroutine  ARB  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  an  arbitrary  polyhedron.  The  intersection  distances,  RIN  and 
ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and  the 
equations  defining  the  six  planes  of  the  arbitrary  polyhedron. 


The  arbitrary  polyhedron  is  described  by  eight  points  which  define  the 
six  planar  surfaces  shown  in  Figure  19  below: 


XB 

starting  point 
of  ray 

WB 

direction  cosines 
of  ray 

S  *WB 

distance  from  XB 
to  point  where  ray 
Intersects  plane 

X 

point  on  plane  where 
ray  intersects  plane 

■  -P 

1  8 

eight  points  which 
describe  the 
arbitrary  polyhedron 

RIN 

distance  to  entry 
intersect 

ROUT 

distance  to  exit 
intersect 

FIG.  19.  Arbitrary  Polyhedron 


48 


TN  4565-3-71  Vol  II 


Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 

X  -  XB  +  WB-S  (80) 

where 

XB  (x  ,y  ,z  )  is  a  fixed  point  on  the  ray, 
o  o  o 

WB  (W^,W^jW^)  is  the  direction  cosines  of  the  ray. 

Thus  for  any  value  of  scalar  S,  Equation  (80)  will  give  a  point  5[  (xfy,z) 
along  the  ray. 

Every  plane  is  represented  by  an  equation  of  the  first  degree  in  one  of 
the  variables  x*y,z.  The  general  equation  of  a  plane  is 

Ax  +  By  +  Cz  +  D  =  0 

provided  that  A,  B,  and  C  are  not  all  zero,  A  plane  can  be  defined  as  passing 
through  three  points  (three-point  form)  Pj*  f  ?2=  ^x2>y2,Z2^  and 

P^-  (x^y^jZ^),  which  must  not  lie  in  a  straight  line,  by  expanding  the 

determinant 


y 


z 

2i 


=  0 


ort 

zi  1 

Z1  X1  1 

X1  yl  1 

X1  yl  Z1 

y2  z2  1 

X  + 

z2  X2  1 

|  y  + 

X2  y2  1 

z  - 

x2  y2  z2 

y3  Z3  1 

z3  X3  1 

x3  y3  1 

x3  y3  z3 

=  0 


therefore,  from  the  general  form  of  the  equation 

A  =  yiz3  -  Vlz2  +  y22l  -  y2Zj  +  y3z2  -  y^ 

B  =  “  xiz3  x?z3  “  X2Z1  +  X3Z1  ~  Xf$Zr} 

C  =  Xxy3  -  V2  +  x2yi  -  x2y3  +  x^  - 

D  =  x1(y2z3  -  z2y3)  -  -  z^)  +  x3^iz2  “  zly2^ 

Each  of  the  six  planes  of  the  arbitrary  polyhedron  is  described  by  the  equation 
of  a  plane  (after  the  eight  points  are  converted  into  six  plane  equations) 
where  the  sign  of  the  coefficients  is  adjusted  such  that 
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A.X  +  BY  +  C.Z  +  D  >  0 
i  i  1  1  — 


(81) 


for  all  (x,y,z)  on  the  surface  or  Interior  of  the  figure  where  i  =  1-6  for 
each  of  the  six  sides. 

The  direction  cosines  of  a  normal  to  the  defined  plane  are  given  by 


WB  = 


WB  = 

y 


Ik  +B4C1 
B 


WB  = 


Z  V^+B^+C7" 

Substituting  the  components  of  ray  Equation  (80)  into  the  equation  for 
the  six  sides  of  the  ARB  results  in 

Al‘(XBx  +  S‘WBX>  +  Bi'^v  +  S-WB  )  +  C.-(XB  .  +  S*WB  )  +  D  =0 

x  y  i  z  z  i 

Solving  for  S 


/a. -XB 

-  -'IX 

+  B. -XB 
i  y 

+ 

C, -XB  +  D. ) 
i  z  1/ 

i  *  r=r 

_ 

A 

+  B  -WB 

C  -WB 

1  x 

i  y 

I  z 

(82) 


Therefore,  given  S^,  the  point  of  intersection  with  each  plane  is  given  by 


XI .  =  XB  +  S. -WB 
i  i 


(83) 


XI1  lies  on  the  surface  of  the  arbitrary  polyhedron  if 


AX  +  B.Y  +  C.Z  +  D.  >  0 
J  J  J  J  ~ 


(84) 


where  X,  Y,  Z  are  the  components  of  the  XI  and  j  =  1-6  for  each  of  the 
six  sides.  1 


Since  the  ray  can  only  intersect  two  sides  of  the  ARB ,  Equation  (84) 
will  be  satisfied  for  two  planes  only.  Therefore,  RIW  is  the  minimum  S-i, 
and  ROUT  is  the  maximum  S^.  If  ROUT  <  0  or  if  none  of  the  six  S^'s 
satisfies  Equation  (84),  no  intersection  occurs  with  the  arbitrary  polyhedron. 
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TRUNCATED  ELLIPTIC  CONE  (SUBROUTINE  TEC) 

Subroutine  TEC  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  truncated  elliptic  cone.  The  intersection  distances,  RIN  and 
ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and  the 
equation  that  defines  the  truncated  elliptic  cone- 

The  truncated_elliptic  cone  is  defined  by  a  vertex,  V;  a  height  vector, 
H;  a  unit  vector,  N,  normal  to  the  base  ellipse;  the  radius  along  the  semi- 
major  axis  of  the  base  ellipse,  Rl;  the  radius  along  the  semi-minor  axis  of 
the  base  ellipse,  R2;  the  ratio  of  the  base  ellipse  to  the  top  ellipse,  RR, 
from  which  is  computed  the  radius  along  the  semi-major  axis  of  the  top 
ellipse,  R3;  and  the  radius  along  the  semi-minor  axis  of  the  top  ellipse,  R4, 


XB  starting  point  of  ray 


WB  direction  cosines  of  ray 


V  vertex  of  the  TEC 

H  height  vector  of  the  TEC 

N  normal  unit  vector  to  the 
base  ellipse 

A  semi -major  axis  of  base 
ellipse  (unit  vector) 

Rl  radius  along  the  semi-major 
axis  of  base  ellipse 

R2  radius  along  the  semi-minor 
axis  of  base  ellipse 

R3  radius  along  the  semi-major 
axis  of  top  ellipse 


R4  radius  along  the  semi-minor 
axis  of  top  ellipse 


FIG .  20  Truncated  Elliptic  Cone 

Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 

X  «  XB  +  J5  •  WB  (85> 
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where 


XB  (x  ,  y  ,  2  )  is  a  fixed  point 
0  o  o 

WB  (W  ,  W  ,  W  )  is  the  direction 
x  y  z 

Thus,  for  any  value  of  the  scalar,  S, 
along  the  ray  as  shown  in  Figure  20* 

Case  1 


on  the  ray, 
cosines  of  the  ray* 

Equation (B5)  will  give  a  point  X{x,y ,z) 


Compute  the  intersect  distances  (if  any),  RIN  and  ROUT,  for  a  ray  that 
is  parallel  to  the  top  and  base  planes  where 

Wl-F  =  0 

Since  the  normal,  IT,  is  a  unit  vector,  the  distance  from  the  base  ellipse 
£G  the  top  ellipse  is  the  projection  of  the  height  vector,  H,  onto  the  normal, 
N ,  and  is  represented  as 


H*N 


The  projection  of  the  (V-XB)  vector  onto  the  normal,  which  is  the  distance 
from  the  base  ellipse  to  the  height  of  the  intersect  for  a  ray  parallel  to 
the  planar  surfaces,  is  represented  as 


-(V-XR)  -IT 


Therefore,  the  ratio,  y,  of  the  height  of  the  intersect  ellipse  to  the 
distance  between  the  top  and  base  planes  along  the  normal  is 

(V-XB) 


and 


0  £  y  £  1 


for  an  intersect  to  occur  between  the  two  planes  of  the  TEC* 
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Let  M  equal  the  radius  of  the  intersected  ellipse  along  the  major 
and  m  equal  the  radius  of  the  intersected  ellipse  along  the  minor  axis 
Therefore,  as  shown  in  a  partial  cross-section  of  the  TEC  (Figure  21). 


and 


T  =  (R1-R3)  -  Y  (R1-R3) 
M  =  T  +  R3 


Therefore 


M  =  YR3  +  R1  (1-Y) 


It  can  similarly  be  shown  that 


m  =  YR4  +  R2  (1-Y) 


From  the  partial  cross-section  above  it  can  also  be  seen  that 


■jl  =  or  h  =  YH 

H  h 

Therefore,  the  vertex,  W,  of  the  intersected  ellipse  is 

Vv  =  V  +  YH 


axis 


(86) 


(87) 


(88) 
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and  the  vector  from  the  intersect  point  to  the  vertex,  W,  of  the  Intersect 
ellipse  is 


X  -  W 


(89) 


Substituting  ray  Equation  (85)  and  Equation  (88)  into  Equation  (89)  results  In 


XB  +  S*WB  -  V  -  yH 


(90) 


The  equation  of  the  intersection  ellipse  Is  given  by 


<M)±  + 

M2 


(Y-fc )2 

2 

ID 


1 


(91) 


Since  A  is  the  semi-major  axis  unit  vector  of  the  base  ellipse,  the  semi-minor 
axis  unit  vector  of  the  base  ellipse  is 


B  -  A  X  N 


Therefore,  from  Equations  (90)  and  (91) 


llxB  +  S-WB-V-YH  ).a|2  ^  [(xB  +  S  •  WB-V-YH  ). ( A  X  N  )1 2 

m2  2  m  1 

“  m 


Solving  for  S  and  grouping  terms  for  a  quadratic  in  S  results  in 


(92) 
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Let 

2 

t  equal  the  coefficient  of  S 
X  equal  the  coefficient  of  2S 
\i  equal  the  cons  tant  term 

Therefore  Equation  (92)  becomes 

tS2  -  2XS  +  u  -  0 


Solving  for  S 


S 


x  ±  /x2-ur 

T 


If  (X2-MT)<  0,  no  intersection  with  the  TEC  occurs. 

Case  1  specifies  a  ray  parallel  to  the  top  and  base  planes.  Therefore, 
Equation  (92),  T  cannot  equal  zero. 

If  /A2- (it  >  0  and  |  T  |  >  0.0001  then 


ROUT 


A  +  iA2-yT 

T 


are  the  intersects  with  the  quadratic  surface  if  ROUT  >  RIN,  j  RIN-ROUT 
>  0.0001,  and  ROUT  >  0. 

Case  2 

Compute  the  intersect  distances  (if  any),  RIN  and  ROUT,  for  a  ray 
is  not  parallel  to  the  planar  surface  of  the  TEC  where 

WB-W  t  0 


from 


(93) 


(94) 


that 
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Let  a  equal  the  distance  along  the  ray  from  the  plane  of  the  base  ellipse 
to  the  plane  of  the  top  ellipse.  Therefore 


H-N 

WB-N 


Let  g  equal  the  distance  along  the  ray  from  the  start  of  the  ray  <XB)  to 
the  plane  of  the  base  ellipse.  Therefore 


(V-XB) -H 
WB-N 


The  distance  along  the  ray  from  the  start  of  the  ray  (XB)  to  the  plane  of 
the  top  ellipse  is  given  by 

ST  =  a  +  g 

Let  e  equal  the  ratio  of  the  distance  between  the  base  plane  and  the  plane 
containing  the  intersect  point  to  the  distance  between  the  base  plane  and 
e  top  plane  (the  plane  containing  the  intersect  point  is  parallel  to  the 
top  and  baseplanes) .  Therefore,  the  distance  along  the  ray  from  the  start 
o  the  ray  (XB)  to  the  intersect  plane  or  contact  point  is  given  by 


S  =  a6  +  6 


(95) 


From  Equation  (88)  the  vertex,  W,  of  the  intersected  ellipse  is 


W  =  V  +  0H 


(96) 


and  the  vector  from  the  intersect  point  to  the  vertex,  W,  of  the  intersect 
ellipse  is 


X  -  W 


(97) 


Substituting  ray  Equation  (85)  and  Equation^)  into  Equation  (97)  results  in 


XB  +  S 'WB-V-9H 


(98) 
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Since  M  is  the  radius  of  the  intersected  ellipse  along  the  semi -major  axis, 
and  m  is  the  radius  of  the  intersected  ellipse  along  the  semi-minor  axis 


and 


From  Equation  (87) it  can  be  seen  that 


(99) 


m  =  9R4  +  R2  (1-0) 


or 

m  =  R2  +  0  (B4-R2) 


(100) 


Substituting  Equations  (9 5X  (98X  (99),  and  (100)  into  Equation  (91)  results  in 


|  [fl (aWB  *h)-(v-xb~3Wb)1 *a}  .  { 

[[9  (aWB-H)  -  (V-XB-BWB)  ]  '  B  1 

.  -  -  y -  + 

(ll)  [r2  +  6(R4~R2)]~ 

[r2  +  0(R4-R2)] 

1 


Solving  for  9  and  grouping  for  a  quadratic  in  9  results  in 


(101) 
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Let 

,  2 
t  equal  the  coefficient  of  9 

X  equal  the  coefficient  of  26 

b  equal  the  constant  term 

Therefore  Equation  (101) becomes 
2 

T  0  +2X6  +  y  =  0 

Solving  for  6 

_  ~  A  - 


(102) 


(103) 


If  t  -  0  the  H  vector  is  perpendicular  to  the  base  and  the  ray  is  parallel 
to  the  H  vector,  and  the  sides  of  the  TEC  are  parallel  as  can  be  seen  from 
Equation  (101).  Therefore,  intersections  can  only  occur  with  the  planar 
surfaces. 


If  (A  -px)  =  o  the  ray  Is  parallel  to  a  side  of  the  TEC  and  there  can  be 
only  one  intersect  with  the  quadratic  surface.  Therefore,  from  Equation 3.03) 


8  =  — 
T 


For  two  intersects  with  the  quadratic  surface 


1  T 


"At  A^-pT 

2  T 


(104) 

(105) 


Choose  such  that  6^ 
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From  Equation  (05)  candidates  for  RIN  and  ROUT  are  therefore 


RIM  =  0^  +  6 
ROUT  =  <*0  £  +  3 


(106) 


For  a  valid  Intersect  the  intersect  S  must  occur  between  the  base  and  top 
planes.  Therefore 


0  <  s(wB-n)-(v-Xb)*N  <  H*N 


(107) 


must  be  true  for  a  valid  intersect  with  the  quadratic  surface. 

When  an  intersect  occurs  with  the  V  or_base  plane  such  that  the  vector 
(X~V)  lies  within  the  plane,  the  vector  (X-V)  is  perpendicular  to  the 
normal  N.  Therefore, 


(X-V>  ■  N  =  0 


Substituting  ray  Equation(85) 


and 


(xB  +  S^WB-V ) * N  = 


(V-KB)  -H 
WB-N 


(108) 


Similarly  for  an  intersect  with  the  V+H  plane 


XB  +  S  WB  -  (V+H  )  -N  =  0 
L  V+H  J 
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or 


=  H-N  (V-XB) -N 

V+H  WB-N  WB-N  “  +  B  (109) 


For  a  valid  intersection  with  the  base  plane,  the  Intersect  must  lie  within 
the  elliptic  cross-section  of  the  base.  The  intersect  with  respect  to  the 
semi-major  axis  (A)  is  given  by 


FI  =  S(WB'A)  -  (V-XB) -A 


and  the  intersect  with  respect  to  Che  semi-minor  axis  (B)  is  given  by 


F2  -  S(WB-B)  -  (V-XB)-B 


These  values  are  substituted  in  the  equation  for  an  ellipse  which  must 
result  In  a  value  of  one  or  less  for  a  valid  intersect  as  follows 


ini2  +  <F2i2  <  x 

(El)2  (R2)2  “  (HO) 

An  intersect  with  the  top  ellipse  is  tested  in  the  same  manner  except  radii 
R3  and  R4  are  used  In  Equation  (110), 
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TORUS  (SUBROUTINE  TOR) 

Subroutine  TOR  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  torus,  as  shown  in  Figure  21.  The  intersection  distances, 

RIN  and  ROUT,  are  calculated  by  solving  simultaneously  the  ray  equation  and 
the  equation  defining  the  torus. 

The  torus  is  defined  by  a  center,  C;  a  radius,  r^,  from  the  center  of  the 
torus  to  the  midpoint  of  the  solid  circular  portion;  a  radius,  r2,  of  the_ 
circular  cross-section;  and  a  normal,  n,  to  the  plane  of  the  torus.  Let  d  be 
a  unit  vector  in  the  direction  of  rx  at  the  intersect  point,  as  shown  in 
Figure  22. 

XB  starting  point  of  ray 

WB  direction  cosines  of  ray 

XP  point  of  intersect  with 

torus 

center  of  torus 

radius  of  torus 

radius  of  circular 
cross-section 

normal  to  plane  of  torus 
(unit  vector) 

direction  of  r^  (unit 
vector) 

m  vector  from  midpoint  of 
cross-section  to  point 

X  of  contact 

n«n  =  1 
d  •  d  =  1 

2 

m*m  =  r^ 
d*n  =  0 
XP  =  XB+S-WB 

FIG.  22.  Torus 
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Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 
X  «*  XB  +  WB  •  S 


(111) 


where 


(XQ>  yo»  zq)  is  a  fixed  point  on  the  ray. 

WB  (wx,  Wy,  Wz)  is  the  direction  cosines  of  the  ray. 

Thus,  for  any  value  of  the  scalar,  S,  Equation  (111)  will  give  a  point 
x  (*»  y>  z)  along  the  ray,  as  shown  in  the  figure. 

From  Figure  22,  it  can  be  seen  that 

m  =  (XP-C)  -  r  d 

Since 


and 


-  2 

m-m  *  T2 


XP  -  XB  +  WB-S 


then 


[(XB+S-WB-C)  -  rxd]  •  [(XB+S-WB-C)  -  r^]  =  r ^ 
Expanding  and  rearranging  results  in: 

— _ _  r,2  -  r.2  -  (XB+S-WB-C)2 

(XB+S-WB-C) -d  *  — - - - - - 


(112) 


Also  from  Figure  22  it  can  be  seen  that 


a2  +  b2 


(113) 


and 


A  =  (XB+S-WB-C) -d  -  rx 
B  =  (XB+S-WB-C) -n 
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Substituting  A  and  B  into  Equation  (113)  results  in 

[(XB+S-WB-C)-n]2  +  [  (XB+S * WB-C)  • d-r ^ } 2  =  r  2  (114) 

Substituting  Equation  (112)  into  Equation  (114)  and  rearranging  terms  gives 
4r12[S*WB-n+(XB-C)-n]2  +  [  (XB+S- WB-C)2  -  (r  2+r22)]2 

(115) 

= 

By  expanding  Equation  (115) ,  realizing  that  WB* WB=1 ,  and  regrouping  terms 
for  a  quart ic  equation  in  of  the  form 

AS4  +  BS3  +  CS2  +  DS  +  E  -  0  (116) 


results  in  the  following  coefficients  for  Equation  (116) 


(117) 


With  the  values  of  A,  B,  C,  D,  and  E  known.  Subroutine  TOR  calls  Subroutine 
QRTIC  to  find  the  roots  and  number  of  real  roots  of  Equation  (116). 

Four  real  roots  means  that  there  are  two  sets  of  entry  and  exit 
intersects,  or  two  sets  of  RIN  and  ROUT. 

Two  real  roots  means  that  there  is  one  set  of  entry  and  exit 
intersects,  or  one  set  of  RIH  and  ROUT. 

No  real  roots  means  that  the  ray  does  not  intersect  the  torus. 
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ARBITRARY  SURFACE  (SUBROUTINE  ARS) 


Subroutine  ARS  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  an  arbitrary  surface.  The  intersection  distances,  RIN  and  ROUT, 
are  calculated  by  dividing  the  arbitrary  surface  into  triangles  and 
solving  simultaneously  the  ray  equation  and  the  equation  of  each  triangle  on 
the  arbitrary  surface  that  lies  within  a  given  tolerance  of  the  ray. 

The  arbitrary  surface  is  described  by  a  specified  number  of  curves  and 
a  specified  number  of  points  on  each  curve.  A  surface  is  constructed  between 
the  first  curve  and  the  second  curve,  between  the  second  curve  and  the  third 
curve,  etc.  Subroutine  ARS  computes  triangles  on  the  surface  formed 
between  two  curves  by  using  the  points  on  the  curves  as  shown  in  Figure  23. 


X  intersect  point 


XB  starting  point  of  ray 

WB  direction  cosines  of 

LIN  distance  to  entry 

intersect 


ROUT 


FIG.  23.  Arbitrary  Surface 


Any  intersect  X  along  ray  WB  from  point  XB  is  given  by 


<VVZo>  a  point  on  the  ray. 

^  )  lg  the  direction  cosines  of  the 
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Thus,  for  any  value  of  the  scalar,  S,  Equation  (118)  will  give  a  point  X  (x.y.z) 
along  the  ray. 

Subroutine  ARS  divides  the  surface  between  two  adjacent  curves  into 
triangles  using  the  specified  points  on  each  curve.  The  intersect  distance 
and  the  normal  (if  any)  are  computed  for  each  triangle  as  shown  in  the 
following  figure  of  a  single  triangle  from  the  arbitrary  surface. 


V 


U 


A 


✓  \ 

/  \ 

/  > 

/  \ 

/ 

/  \  (u-w) 

/  \ 


✓ 

✓ 


\  _ 
•  -*  « 


(V-W) 


if,  V,  W  are  points  on  the 
curves  of  the  arbitrary 
surface 


FIG.  24.  ARS  Surface  Triangle 

For  the  intersect  XP  within  the  triangle  there  is  an  a ,  8,  and  y  such  that 


XP  =  XB  +  WB-S  =  aU  +  6V  +  yW 


(119) 


where 


a  +  B  +  y  “1 

and 

0  <_  a  <_  1 

0  <  B  <  1 

0  <  y  <  1 
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Substituting  y  =  1-a-B  into  Equation  (119)  results  in 


aU  +  BV  +  (l-a-B)W  =  XB  +  S-WB 


Collecting  terms  and  rearranging  results  in 

a(U-W)  +  B(V-W)  -  S-WB  =  XB-W  ^ 

Equation (120) can  be  written  in  terms  of  the  x,  y,  and  z  components  as 
a  matrix  equation  with  three  unknowns  as  follows. 


a(U  -W  ) 

+  B(V  -W  ) 

-S-WB  =  XB  -W 

X  X 

x  X 

X  XX 

a(U  -W  ) 

+  6(v  -W  ) 

-  S-WB  =  XB  -W 

y  y 

y  y 

y  y  y 

a(U  -W  ) 

+  B(V  -W  ) 

-S-WB  =  XB  -w 

z  z 

z  z 

Z  Z  2 

(121) 


Solving  Equation (121) results  in  values  for  a,  B,y  (y  -  1-a-B) ,  and  S.  If 
a,  6,  and  y  satisfy  the  conditions  a  +  6  +  y  *  1  and  0  <  (a.B.y)  <  1 
the  ray  intersects  the  triangle. 

The  normal  of  the  intersected  triangle  is  computed  from  the  cross 
product  of  two  sides  of  the  triangle,  or 


N  =*  (TJ-B)  X  (V-tJ) 

Subroutine  ARS  computes  the  normal  of  the  intersected  triangle  such  that  its 
direction  is  outward  from  the  arbitrary  surface.  The  direction  of  the  result¬ 
ant  normal  is  compared  with  the  direction  of  the  ray  to  determine  if  the 
intersected  triangle  is  an  entry  or  exit  intersect. 
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ANGLE  OF  OBLIQUITY  (SUBROUTINE  CALC) 

Given  the  body  type  and  the  intersected  surface  number  (positive  for 
an  entry  intersect,  negative  for  an  exit  intersect)  where  a  ray  with  direc¬ 
tion  cosines  WS  intersects  the  body.  Subroutine  CALC  calculates  the  angle  of 
obliquity,  that  is,  the  angle  between  the  ray  and  the  normal  at  the  intersect 
point. 

To  compute  the  obliquity  angle,  the  direction  cosines  of  the  normal  WB, 
must  be  computed  so  that  WB*WS  >  0.  Variable  Q  (XNOS  in  simulation  model)  is 
set  +1  or  -1  to  insure  a  WB  such  that  WB*WS  >  0. 

The  methods  for  computing  the  normal  direction  cosines,  WB,  for  each 
of  the  twelve  body  types  are  given  in  the  following  paragraphs. 

Normal  to  the  Rectangular  Parallelepiped 

The  direction  cosines,  WB,  of  the  normal  to  the  intersected  surface  of 
an  RPP  are  determined  from  the  fact  that  the  bounding  planes  are  parallel 
to  the  coordinate  axes  as  shown  in  Figure  25. 


FIG.  25.  Rectangular  Parallelepiped 

Surface  Bounding  Direction  Cosines  of  Normal 

Number  Plane  into  RPP  [WB  (x,y,z)l 


1 

X  min 

(1,  o,  0) 

2 

X  max. 

(-1,  0,  0) 

3 

Y  min 

(0,  1,  0) 

4 

Y  max. 

o 

f-1 

O 

5 

Z  min 

(0,  0,  1) 

6 

Z  max. 

(0,  0,  -1) 
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Normal  to  the  Box  (Or  Sides  1,3)5,  or  6  of  the  Right  Angle  Wedge)  i 

The  direction  cosines  of  the  normal  to  the  intersected  surface  of  a 
BOX  is  determined  from  the  vector  between  the  face  pairs,  one  of  which  is 
the  intersected  face,  as  shown  in  Figure  26. 


FIG.  26.  Box 

Surface 

Number 

Direction  Cosines 

1  or  2 

WB^  =  Q  (H2//H2-H2) 

(122) 

3  or  4 

WBy  =  Q  (H1//h1 ■ HI) 

(123) 

5  or  6 

WBz  =  Q  (H3//h1h3) 

(124) 

Where  ■yj  H*  H  is  the  scalar  length  of  the  given  vector,  and  Q  is  set  to  4*1.0 
for  an  entry  intersect  or  -1.0  for  an  exit  intersect.  If  the  box  surface 
number  is  even,  or  if  surface  number  six  of  the  RAW,  the  direction  of  the 
normal  at  the  intersect  is  opposite  the  direction  of  the  vector  between  face 
pairs  so  Q  is  set  to  -Q. 

Normal  to  the  Sphere 

The  direction  cosines  of  the  normal  to  the  intersected  surface  of  a 
sphere  are  determined  from  intersect  point  X,  vertex  V,  and  radius  R,  as 
shown  in  Figure  27. 
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FIG,  27  Sphere 

V  -  X 

WBx  =  X  -  ~  Q  (125) 

_  V  -  X 

WB  =  — -  Q  (126) 

y  R 

V  -  X 

WBz  =  Z  R  2  Q  (127) 


where  Q  is  set  to  +1.0  for  an  entry  intersect  or  -1.0  for  an  exit  intersect. 

Normal  to  a  Planar  Surface  of  the  Right  Circular  Cylinder,  The  Right 
Elliptical  Cylinder,  or  the  Truncated  Right  Cone  _ 

The  direction  cosines  of  the  normal  to  the  intersected  planar  surface 
of  an  RCC  or  REC  are  determined  from  height  vector  H  as  follows 


WB 


H 


v/H+H~ 

H 

WB  =  ~^= 

V  ZlTlT 


(128) 


(129) 


H 


WB  =  . 

z  vdT 


(130) 


where  is  the  scalar  length  of  the  height  vector  and  Q  is_se^t  to  +1.0 

for  an  entry  intersect  or  -1.0  for  an  exit  intersect.  If  the  V+H  planar 
surface  is  the  intersected  surface,  Q  is  set  to  -Q  before  computing  the 
direction  cosines  of  the  normal  since  the  direction  of  the  normal  to  the 
V+H  planar  surface  is  opposite  the  direction  of  the  H  vector. 
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Normal  to  the  Side  of  the  Right  Circular  Cylinder 

The  dlrection  cosines  of  the  normal  for  an  Intersect  on  the  side  of  an 
RCC  are  determined  from  intersect  point  X,  vertex  V,  and  height  vector  H  as 
shown  in  Figure  28 


FIG.  28.  Right  Circular  Cylinder 
The  direction  cosines  of  a  vector  from  V  to  X  are  given  by 


'^<Vi"-X1)2 

where  i  is  the  x,  y,  or  z  coordinate  respectively. 

The  direction  cosines  of  height  vector  V  are  given  by 


(131) 


(132) 


by 


The  cosine  of  an  angle  n  between  the  two  unit  vectors  WN  and  WH  is  given 


cos  a  -  WN-WI 

^Ight^^torV^'"’"  fr°m  V"Ee:t  ?  t0  the  onto  the 


D  -  ^(3E~V)  ■  t  cos  a 


(133) 

givenhbyC°°rdinateS  °f  ^  intersect  projected  onto  the  height  vector  H  are 


XH  =  V  +  D-WI 


(134) 
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The  direction  cosines  of  the  normal  to  the  side  of  the  RCC  are  therefore 
determined  from  X  and  XH  as  follows 


where  i  is  the  x,  y,  or  z  coordinate,  respectively 
an  entry  intersect  or  -1*0  for  an  exit  intersect* 


Normal  to  the  Side  of  the  Right  Elliptic  Cylinder 


The  direction  cosines  of  the  normal  for  an  intersect  on  the  side  of  an 
REC  are  determined  from  intersect  X,  the  length  and  direction  of  semi-major 
axis  the  length  and  direction  of  semi-minor  axis  B,  and  the  intersect  pro¬ 
jected  onto  height  vector  XH  (XH  was  determined  in  the  preceding  RCC  section) 
as  shown  in  Figure  29- 


F1G  *  29*  Right  Elliptic  Cylinder 


— 1 

XH 

/ 
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The  distance,  b,  between  XH  and  B  is  given  by 


b  =  /(XH-B)2 


(139) 


The  distance,  c,  from  the  center,  XH,  of  the  intersection  ellipse  to  a 
focus  FI  is  given  by 


c  =  /a^-b^ 


(140) 


where  a  >  b. 

The  direction  cosines,  WA,  of  the  semi-major  axis  are  given  by 


WA 


Ai-XHi 


/Z(XH1-A1)2 


(141) 


where  i  is  the  x,  y,  or  z  coordinate,  respectively. 

The  coordinates  of  the  foci,  FI  and  F2,  are  determined  by 
FI  =  XH  +  C-WA 
F2  =  XH  -  C-WA 


The  directions  cosines,  WX,  from  focus  FI  to  the  intersect  X  are 
given  by 


WX 


Xi"F1i 


/kfi^)2 


(142) 


where  i  is  the  x,  y,  or  z  coordinate,  respectively. 

A  point,  L,  on  a  line  from  FI  through  intersect  X  at  a  distance  of  twice 
the  length  of  the  semi-major  axis  is  given  by 

L  -  FI  +  2a- WX 

The  direction  cosines  of  a  vector  from  point  L  to  the  second  focus  F2 
are  equal  to  the  direction  cosines,  WB,  of  the  normal  to  the  surface  at 
intersect  X. 


WB 


F2  -L 
x  x 


/zo^-F^)2 


(143) 
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where  i  is  the  x,  y,  or  z  coordinate,  respectively,  and  Q  is  set  to  +±.0  for 
an  entry  intersect  or  -1.0  for  an  exit  intersect. 


Normal  to  the  Side  of  the  Truncated  Right  Cone 


The  direction  cosines  of  the  normal  for  an  intersected  surface  of  the 
side  of  a  TRC  are  determined  from  Intersect  point  X,  vertex  V,  height  vector  H 
radius  RB  of  the  base,  and  radius  RT  of  the  top  as  shown  in  Figure  30. 


FIG.  30.  Truncated  Right  Cone 


The  coordinates  of  point  T  are  determined  by 


The  cross  product  of  vectors  (T-X)  and  (V-X)  results  in  a  vector  CP  by 


CP  =  (T-X)X(V-X) 
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and  the  direction  cosines  of  the  normal  at  the  intersect  are  determined  by 


_  N 

WB  =  — =  Q 

x  /n^n 

_  N 

WB  =  — Q 
y 

_  N 

WBz  =  7=E  Q 

/n-n 


(149) 


(150) 


(151) 


where  /N"»TT  is  the  scalar  length  of  the  perpendicular  vector  at  the  intersect, 
and  Q  is  set  to  +1.0  for  an  entry  intersect  or  -1.0  for  an  exit  intersect. 

Normal  to  the  Ellipsoid  of  Revolution 

The  directions  cosines  of  the  normal  for  an  intersect  on  the  surface  of 
an  ellipsoid  are  determined  from  intersect  point  X,  foci  fl  and  F2-,  and  the 
length  of  semi-major  axis  A,  as  shown  in  Figure  31. 


A 


FIG,  31*  Ellipsoid  of  Revolution 

The  direction  cosines,  WX  from  focus  Fl  to  the  intersect  X  are  given  by 


WX 


VF1i 


/l(Fl1-X1)2 


(152) 
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A  point,  L,  on  a  line  from  FI  through  intersect  X  at  a  distance  equal  to 
the  length  of  semi-major  axis.  A,  is  given  by 

L  =  FI  +  A-WX 

The  direction  cosines  of  a  vector  from  point  L  to  the  second  focus  F2 
are  equal  to  the  direction  cosines,  WB,  of  the  normal  at  intersect  X  as  follows 


F2  -L 
x  x 


/E(L1-F2i)2 


Q 


F2  -L 

y  y 


/z(Li-F2i)2 


(153) 


(154) 


F2  -L 
z  z 


/l(Li-F2i)2 


(155) 


where  i  is  the  x,  y,  or  z  coordinate,  respectively,  and  Q  is  set  to  +1.0  for 
an  entry  intersect  or  -1.0  for  an  exit  intersect. 


Normal  to  the  Slanted  Surface  of  the  Right  Angle  Wedge 


The  direction  cosines  of  the  normal  for  an  intersect  on  the  slanted 
surface  of  a  RAW  are  determined  from  length  vectors  HT,  H2~,  and  U  as  shown 
in  Figure  32. 


V 


FIG.  32.  Right  Angle  Wedge 
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A  vector ,  N,  perpendicular  to  the  slanted  side  is  given  by 


N  =  (H1-H2) X  H3  (156) 

The  length  of  N  is  given  by 
n  =  *4r-N 

To  insure  that  vector  N  is  directed  from  the  outside  into  the  slanted 
surface  (since  vectors  HI  and  H2  may  be  interchanged),  the  dot  product  of  N 
and  H T  is  determined 


S'  -  N- Hi 


where 


Sf<0  means  that  N  is  in  the  correct  direction 


and 


S*>0  means  that  N  is  in  the  reverse  direction 
The  direction  cosines  of  the  normal  to  the  slanted  surface  are  therefore 


WB  =  ”  <Q)(S)  (157) 

where  S  =  —  S 1  /  J  S fl ,  and  Q  is  set  to  +1.0  for  an  entry  intersect  or  -1*0  for  an 
exit  intersect. 

Normal  to  the  Arbitrary  Polyhedron 

The  direction  cosines  of  the  normal  for  an  intersect  on  the  side  of  a 
ARB  are  determined  from  A,  B,  and  Cf  the  respective  X,  Yt  and  Z  coefficients 
of  the  equation  of  the  intersected  plane,  as  shown  in  Figure  33. 


FIG.  33.  Arbitrary  Polyhedron 
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The  direction  cosines  of  the  normal  to  the  plane  defined  by  AX  +  BY  + 
CZ  f  D  =  0  are  given  by 


WB 

x 


WB 

y 


WB 


/a^bZ+C2 

c 


Q 


Q 


Q 


(158) 


(159) 


(160) 


where  Q  is  set  to  +1*0  for  an  entry  intersect  or  -1*0  for  an  exit  intersect. 

Normal  to  the  Truncated  Elliptic  Cone 

The  direction  cosines  of  the  normal  to  either  intersected  planar  surface 
of  a  TEC  are  determined  from  N,  the  normal  direction  cosines  to  the  base 
ellipse j  as  follows: 


WB 

x 

WB 

y 

WB 

z 


-  v«> 

(161) 

tl 

O'-'V 

(162) 

-  Nz- (QJ 

(163) 

where  Q  is  set  to  a  +1.0  for  an  entry  intersect  or  -1.0  for  an  exit  intersect* 
If  the  top  planar  surface  is  the  intersected  surface,  Q  is  set  to  -Q  before 
computing  the  direction  cosines  of  the  normal  since  the  direction  of  the 
normal  to  the  V+H  planar  surface  is  opposite  the  direction  of  the  N  vector. 

The  direction  cosines  of  t.he  normal_for  an  intersection  the  side  of  a  TEC 
are  determined  from  intersect  X,  vertex  V,  height:  vector  H,  normal  to  the  base 
ellipse  N ,  the  direction  cosines  of  semi -major  A,  the  direction  cosines  of 
semi-minor  axis  B,  the  semi-major  and  semi-minor  radii  of  base  ellipse  R1  and 
R2,  and  the  semi-minor  and  semi-minor  radii  of  top  ellipse  R3  and  R4,  as 
shown  in  Figure  34. 
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A1 

/'  \  __ 
/  m  \  (t— x) 


FIG.  34  Truncated  Elliptic  Cone 
The  distance  between  the  two  planar  surfaces  is  given  by 
D1  -  H*N 

The  height  of  the  intersect  X  from  the  base  plane  is  given  by 
D2  =  (X-V)-N 

The  ratio  on  the  normal  to  the  height  of  the  hit  is  given  by 
Y  =  D2/D1 

Therefore,  the  center  of  the  intersection  ellipse  is  determined  by 

C  =  V  +  Y-H 

By  redrawing  part  of  Figure  34  as  shown  in  Figure  35: 

H  R4 


TIG.  35.  TEC  Cross-Section 

it  can  be  seen  that 

in  =  _  l 

P  R2-R4 
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or 


P  =  R2-R4-yR2+yR4 

If  b  is  equal  to  one-half  the  length  of  the  semi-minor  axis  of  the  inter- 
sected  ellipse 


b  =  R4+P 


Therefore 

b2  *  [yR4  +  (1-y)  R2 ] 2 


Letting  T  equal 


Therefore,  if  a  is  equal  to  one-half  the  length  of  the  semi-major  axis  of  the 
intersected  ellipse 


2 

a  = 


tb 


2 


The  distance  from  the  center  of  the  intersection  ellipse  to  a  focus  is  given  by 

c  = 

The  coordinates  of  foci  FI  and  F2  are 


FI  =  C  +  cA 
F2  =  C  -  cA 

The  direction  cosines,  WX,  from  focus  FI  to  the  intersect  X  are  given  by 


WX 


X  ,-Fl . 
i  l 


/KFli-X1>2 


where  i  is  equal  to  the  x,  y ,  or  z  coordinate. 


(164) 
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From  Figure  36, 
distance  equal  to  the 


the  point  L  on  a  line  from  FI  through  intersect  X  at  a 
length  of  semi— major  axis  2a  is  given  by 


FIG*  36,  TEC  Intersection  Ellipse 

The  direction  cosines  o£  a  vector  from  point  L  to  the  second  focus  F2 
are  equal  to  the  direction  cosines,  WN,  of  the  normal  to  the  plane  of  the 
ellipse  at  intersect  X  as  follows: 


WN  = 


F2i'Li 


/l(Li“F21) 2 

where  i  is  the  x,  y,  or  z  coordinate,  respectively. 

From  Figure  36,  the  vector  (T-X)  is  determined  by 

(T-«  *  (v  +  ^  I)  -X 

CP  by1116  Cr°SS  pr0duct  °f  the  vectors  (T-X)  and  WN  results  in  a  vector 

CP  =  (T-X)XWN 

determined by€ *  “  perpendicular  to  the  side  intersect  X  is 


(165) 


(166) 


N  =  CP  X(T-X) 


(167) 
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and  the  direction  cosines  of  the  normal  at  the  intersect  are  determined  by 


<168) 


(169) 


(170) 


where  /N'N  is  the  scalar  length  of  the  perpendicular  vector  at  the  intersect, 
and  Q  is  set  to  a  +1.0  for  an  entry  intersect  or  a  -1.0  for  an  exit  intersect. 

Normal  to  the  Torus 

The  direction  cosines  of  the  normal  to  the  intersected  surface  of  a_ 
torus  are  determined  from  intersect  X,  normal  to  the  plane  of  the  torus  n 
center  of  the  torus  V,  and  major  radius  R,  as  shown  in  Figure  37 . 


FIG.  37.  Torus 


The  cross  product  of  vectors  N  and 


(X-V)  is  given  by 


VX  =  N  X(X-V) 
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The  cross  product  VX  and  N  is  given  by 


CV  =  VXXN 

and  results  in  a  vector  in  the  direction  of  the  center  of  the  circular  cross- 
section  of  the  intersect  plane. 

The  coordinates  of  point  C  are  determined  by 


C  =  V  +  R 


CV 


t'CV-CV 


where  CV/ v'Cv •  Uv  are  the  direction  cosines  of  the  vector  CV. 

Knowing  the  coordinates  of  point  C  and  intersect  X,  the  normal  to  the 
surface  of  intersect  X  is  determined  by 


WB  = 

x 


C  -X 
x  x 


(Xi-C1): 


C  -X 

to  -  y  y 

/zctj-cp2 


WB  = 
z 


C  -X 
z  z 


>^Cx1-ci)2 


(171) 


(172) 


(173) 


where  i  is  the  x,  y,  or  z  coordinate,  respectively,  and  Q  is  set  to  +1.0  for 
an  entry  intersect  or  -1.0  for  an  exit  intersect- 


Normal  to  the  Arbitrary  Surface 

The  direction  cosines  of  a  norma  to  the  intersected  surface  of  an  ARS  are 
determined  from  the  three  points,  U,  V,  and  W,  of  the  intersected  triangle  on 
the  surface  of  the  ARS,  as  shown  in  Figure  38. 
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/ 


A 

s  V 

'  \ 

\(U-W) 

l 


V  ^ 


(V-W) 


w 


FIG.  38.  ARS  Surface  Triangle 


A  vector  N  perpendicular  to  the  surface  of  a  triangle  formed  by  the 
three  points  U,  V,  and  W  is  given  by 


N  =  (U-W) X (V-W) 


The  directions  cosines  of  the  normal  vector  N  are  determined  by 


N 

WB  =  (174) 

x  /n*n 


N 

WB  =  — *=c  (175) 


N 

WB  =  (176) 

Z 


where  /n*  N  is  the  scalar  length  of  the  normal  vector  N. 

Angle  of  Obliquity 

The  angle  of  obliquity  (the  angle  between  the  ray  and  the  normal  at  the 
intersect  point)  is  determined  from  the  direction  cosines  of  the  ray,  WS,  and 
the  direction  cosines  of  the  normal,  WB,  as  follows: 

The  cosine  of  the  angle  between  the  normal  WB  and  the  ray  WS  is 
A  =  WB*WS  =  |wB  *  WS  cos  ot 
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Since  | WB  j  and  |WS  |  are  both  equal  to  one 
A  =  cos  a 

The  angle  in  degrees  is  determined  by 


a  (degrees)  = 


arctan 


//l~  (cos  \ 

\  cos  a  /_ 


180 

7T 


(177) 


where 


/l-cos2a\  180 


/ j  „„  x  /  A-cos  at  \  180  /  x 

n  (degrees)  -  arctan  (  - - —  1  -  s  arccos  (a) 

\  cosa  /  TT 


180 

it 


since  the  arctangent  is  the  only  standard  FORTRAN  inverse  trigonometric  routine. 
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GRID  PLANE  AND  TARGET  (SUBROUTINES  GRID  AND  AREA) 

All  rays  that  are  traced  through  the  target  geometry  (Subroutine 
GRID),  or  ^o  the  first  component  of  the  target  geometry  (Subroutine  AREA), 
originate  from  the  grid  plane  at  the  center  of  the  target.  The  grid 
plane  (refer  to  examples  in  Figures  39  and  40)  is  a  plane  divided  into 
equal-sized  squares  called  cells  and  located  such  that  the  center  of  the 
grid  plane  is  at  the  origin  of  the  target  geometry  and  oriented  in  the 
azimuth  and  elevation  angle.  The  grid  plane  is  established  from  the  grid 
size,  cell  size,  and  attack  angle  of  the  target.  The  grid  size  is  given 
in  terms  of  the  number  of  cells  (Nx  and  Ny)  in  the  two  dimensions  of  the 
grid  plane.  Nx  and  Ny  should  both  be  odd  numbers  for  best  results. 

Given  the  azimuth  angle  a  and  the  elevation  angle  0,  the  direction 
cosines  of  the  rays  to  be  fired  at  the  target  are 


WB  =  -cos  9  cos  a 
x 


WB  =  -cos  9  sin  a 

y 


WB  =  -sin  9 
z 


(178) 

(179) 

(180) 


where  the  azimuth  and  elevation  angles  are  measured  in  the  positive  axis 
direction.  An  azimuth  and  elevation  angle  of  0°  represents  a  head-on 
attack  plane.  An  azimuth  of  90°  shifts  the  grid  plane  to  the  left  flank 
of  the  target,  and  an  elevation  of  90°  represents  an  overhead  attack  plane. 

The  number  of  cells  in  the  grid  plane  Is  given  by 
N  =  N  *  N 


By  letting  I  represent  the  row  number  and  J  represent  the  column 
number,  a  specific  cell,  k,  can  be  located  in  the  grid  plane  (see  example. 
Figure  40)  as  follows: 


I  =  Integer 

J  =  k  - (I— 1) ' N 


+  1 


(181) 

(182) 
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FIG.  39.  Grid  Plane  Geometry 
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Nx  Number  of 

horizontal  cells 

Ny  Number  of 

vertical  cells 

J  Column  number 

(1  -  7) 

I  Row  number  (1-5) 

k  Specific  grid  cell 

number  (varies 
from  (1)  to  (35) 
in  figure  above 

D  Dimensions  of 
grid  cell 


C  Center  of  grid 
plane  (V-Q ,  H^O) 

Vf  Vertical  distance 
from  center  of 
grid  plane  to 
lower  left  corner 
of  specified  grid 
cell 

Hr  Horizontal  distance 
from  center  of  grid 
plane  to  lower  left 
corner  of  specified 
grid  cell 


FIG.  40.  Example  of  a  Grid  Plane 
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Therefore,  from  Figure  40,  if  cell  number  13  were  the  specific  cell 
desired  (k-13) ,  then 

I  *  Integer  +1-2  (row  2)  (183) 

*1  3  13  -(2-1)  *7  -  6  (column  6)  (184) 

It  should  be  noted  that  the  row  and  column  numbering  begin  at  the  upper 
right  corner  of  the  grid  plane. 

The  location  of  the  lower  left  corner  of  the  specific  grid  cell 
relative  to  the  center,  C,  of  the  grid  plane  is  given  by 

V'  -  [Integer  (Ny/2)-I]D  +  D/2  (185) 

H’  =  [Integer  (Nx/2)-j}-D  +  D/2  (186) 


For  grid  cell  number  13  in  the  example  (Figure  40)  and  assuming  a 
four-inch  cell  size  as  in  Figures  39  and  40,  the  coordinates  of  the  lower 
left  corner  of  grid  cell  number  13  relative  to  the  center,  C,  of  the  grid 
plane  would  be 


V'  *  [Integer  (5/2)-2] -4  +  4/2  -  2 

H'  =  [Integer  (7/2)-6] -4  +  4/2  =  -10 

The  mid-point,  M,  of  the  specific  grid  cell  can  be  located  for  reference 
purposes  by  adding  one-half  the  cell  size  to  both  V’  and  H'  as  follows: 

Vref  =  V'  +  D/2  (187) 

Href  *  H’  +  0/2  (188) 

From  the  above  example  for  grid  cell  number  13  this  would  be 

Vref  =  2  +  4/2  =  4 
«ref  -  -10  +  4/2  -  -8 
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One  of  one  hundred  possible  points  within  the  specific  grid  cell  can 
now  be  selected  as  follows; 

V  -  V  +  D  (I  /10)  +  D/20 

V 

H  =  H'  +  D  (Ih/10)  +  D/20 

where  I  and  I  are  two  random  numbers  between  zero  and  nine.  Since  each 

cell  isV  in  effect,  divided  into  100  sub-cells,  D/20  in  the  above  equations 
insures  that  the  ray  originates  from  the  center  of  the  randomly  selected 
subcell- 

If  random  numbers  I  and  I  are  equal  to  two  and  six  respectively 
(see  example  Figure  4  I )T  V  and  H  of  the  above  example  would  be 

V  =  2  +  4(2/10)  +  4/20  =  3.0 

H  =  -10  +  4(6/10)  +  4/20  *  -7.4 
for  cell  number  13  of  Figure  40. 

The  grid  plane/cell  point  coordinates  with  respect  to  the  center  of 
the  grid  plane,  C,  are  transformed  into  the  x,  y,  z  coordinates  of  the 
target  vehicle  by 

X  =  (XSHIFT)  -  V  cos  a  sin  0  -  H  sin  a  (189) 

px 

X  =  (YSHIFT)  -  V  sin  a  sin  0  +  R  cos  a  (190) 

py 

X  =  (ZSHIFT)  +  V  cos  8  (191) 

pz 

where  XSHIFT,  YSHIFT,  and  ZSHIFT  are  used,  in  effect,  to  shift  the  entire 
grid  plane,  if  desired.  XSHIFT,  YSHIFT,  and  ZSHIFT  provide  the  option  of 
relocating  the  grid  plane  to  some  specific  component  or  components  of  the 
target,  for  example  the  engine  area  of  the  target  rather  than  the  entire 
target  or  center  of  the  target, 

Once  the  coordinates  X  of  the  point  on  a  given  cell  have  been  deter¬ 
mined,  the  point  is  backed  But  from  the  grid  plane  in  the  target  by  a 
distance  ENGTH  and  direction  WB  to  a  point  XB.  Point  XB  is  the  origin  of 
the  ray  to  be  fired  at  the  target,  passing  through  the  grid  point  before 
being  backed  out  from  the  grid  plane. 
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V  vertical  distance  into  grid  cell 
from  lower  left  corner  (V',H') 

H  horizontal  distance  into  grid  cell 

from  lower  left  corner  (V'.H') 

M  center  of  grid  cell 

D  dimensions  of  grid  cell 

random  number  0-9  for  gen¬ 
erating  V 

Ih  random  number  0-9  for  gen¬ 

erating  H 


FIG.  41.  Example  Grid  Cell 
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SOLUTION  OF  QUARTIC  EQUATION  (SUBROUTINE  QRTIC) 

Subroutine  QUARTIC  computes  the  roots  of  a  quartic  equation  of  the  form 

x^  +  ax'*  +  bx  +  ex  +  d  =  0  (192) 

Using  the  algebraic  solution  of  biquadratic  equations  discovered  by  Ferrari, 
a  pupil  of  Cardon,  Equation  (192)  can  be  rewritten  in  the  form 

x^  +  ax'*  =  -  bx"  -  cx  -d  (193) 


*-  r\ 

Adding  ~  x  to  both  sides  of  Equation  (193)  results  in 

^x2  +  ~  xj"  =  -bj  X2  -  cx  -  d  (194) 

which  is  an  equation  equivalent  to  the  original  equation.  If  the  right- 
hand  member  of  Equation.  (194)  were  a  perfect  square,  the  solution  of  the 
equation  would  be  immediate.  However ,  usually  there  is  not  a  perfect  square 
The  basic  idea  in  Ferrari* s  method,  therefore,  consists  in  adding  to  both 
sides  of  Equation  (194) 


to  have  a  perfect  square  on  the  left-hand  side  for  an  indeterminate  y,  Equa 
tion  (194)  is  then  transformed  into 

f2  +  2  *  +  f)  =  (t  ~b+y) x2  +(¥ _c) x  +(i  ~d)  (195) 

y  is  determined  so  that  the  right-hand  side  of  Equation  (195)  becomes  the 
square  of  linear  expression  ex  4-  f. 

In  general ,  if 


?  2 
A3t  +  Bx  +  C  *  (ex+f) 


9  ?  2 

=  x 1  +  2ef x  +  f 


(196) 


then  B  —  4AC  =  0  (19  7) 

and  A  =  e2,  B  =  2ef,  C  =  f2  (198) 

so  that  Equation  (197)  is  satisfied.  Therefore,  the  right-hand  side  of 
Equation  (195)  will  be  the  square  of  a  linear  expression  c*  +  f  if  y 
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satisfies  the  equation 

(f  -)2  -«(**£-*)  (f  -) 

or,  in  expanded  form, 

3  2  o 

y  -  by  +  (ac-4d)y  +  4bd  -  a^d  -  c2  =  0 

For  y  =  2w  Equation  (200)  becomes 


(199) 


w3  -  \  M2  +  (acJ4d)  w  +  4bd  -a  d  - 


2,  2 

c 


=  0 


(200) 


(201) 


entSofihrb1tl*f\f0r  W  ^  r°0t  °f  tHiS  CUbiC  e9uati°n,  called  the  resolv- 
ent  at  the  biquadratic  equation,  to  result  in 


(f~  "b+2w)  +  Caw-c)  X  +  (w2-d)  =  e2  x2  +  2efx  +  f2 


with  properly  chosen  e  and  f .  The  biquadratic  equation  therefore 


the  form 


(202) 

appears  in 


(x2+  f-  +  \  y)  -  (ex  +f)‘ 
which  splits  into  two  quadratic  equations 


x2  +  |-  x  +  i  y  =  ±  (ex  +f ) 


Solving  for  x  using_the  quadratic  formula  results  in  the  four  requested 

Al-*)  - 


roots 


"1,2 


-  f  +  e 


4  (w-f) 


(203) 


and 


-|-e 


3,4 


A  f  -  °)2  - 


4  (urt-f) 


(204) 
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The  roots  y^,  y^ ,  and  of  reduced  Cubic  Equation  (206)  are 

(210) 

(211) 
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with 


A  = 

3  - 

/“  2  + ^ 

a  = 

3. - - 

Q  =  ( 

'i)3+  ^)2 

\ 

(212) 


(213) 


(214) 


where  the  real  values  of  the  cube  roots  are  used.  The  Cubic  Equation  has 
one  real  root  and  two  conjugate  complex  roots;  three  real  roots  of  which  at 
least  two  are  equal;  or  three  different  real  roots,  if  Q  is  respectively 
positive,  zero,  or  negative.  If  Q  of  Equation  (214)  is  negative,  y  is 
solved  by  the  trigonometric  solution 


y±  =  2 y^p/3  cos  (0/3) 


and 


(215) 


- - - - — - 

y2,3  *  -2y/IP/3  cos  (0/3  +  60°) 


(216) 


where 


(217) 


The  real  roots  of  x  in  Equation  (205)  are  determined  by  substituting  the 
real  values  of  y  into  Equation  (209). 
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THE  MASTER-ASTER  ARRAY 

The  MASTER-ASTER  array  is  a  10,000-word  array  used  In  the  MAGIC  program 
to  store  the  processed  target  geometry  data.  In  its  completed  form  (after 
Subroutine  AREA)  the  MASTER-ASTER  array  contains  the  following  information. 
(The  variable  name  in  parentheses  represents  the  location  of  the  first  word 
of  data  of  each  section.) 

1.  RPP  pointer  data  (LEASE) 

a.  pointer  to  abutting  RPP?s  for  given  side 

b.  number  of  abutting  RPP's  for  given  side 

c.  pointer  to  coordinate  for  given  side  of  RPP 

2.  RPP  coordinate  data  (LRPPD) 

3.  List  of  abutting  RPP's  for  each  side  of  each  RPP 

4.  Body  pointers  (LABUT) 

a.  body  type 

b.  pointer  to  body  data  pointers 

c.  pointer  to  region  enter  table 

d.  pointer  to  region  leave  table 

e.  number  of  regions  in  enter  table 

f.  number  of  regions  in  leave  table 

5.  Body  data  pointers  (LBODY) 

6.  Body  data  pointers  followed  by  body  dimensions  (LBOD) 

7.  Region  data  pointers  (LREGD) 

a.  pointer  to  operator/body  list  for  given  region 

b.  number  of  bodies  in  list  for  given  region 

8.  Region  data  (LREGL) 

a.  operator 

b.  body 
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9. 

10. 

11. 

12. 


Region  enter/ leave  cables  (LENLV) 

Body  enter  intersect  distances  (LRIfJ) 

Body  exit  intersect  distances  (LRQT) 

Subroutine  G1  working  storage  (LIO) 

a.  entering  surface  number 

b.  exit  surface  number 

c.  internal  loop  counter 

13.  Presented  area  by  component  code  (LAREA) 

14.  Region  code  data  (LIRFO) 

a.  component  identification  data 

b.  space  identification  data 

15.  Last  word  of  the  MASTER-ASTER  array  (NDQ) 

the  entire^MAGir6  ls  throughout  the  execution  of 

he  entire  MAGIC  program.  Therefore,  to  gain  a  complete  understanding  of  the 

contents  of  the  MASTER-ASTER  array  at  various  times  in  the  execution  It  the 

IC  program,  the  following  discussion,  with  accompanying  figures,  is  given. 

The  MAIN  program  assigns  the  first  available  storage  location  as  the 

n^e  LMSE  ^  loCation  is  ^signed  the  variable 

name  LBASE.  The  last  word  of  the  MASTER-ASTER  array,  word  10,000,  is  assigned 

AS^^rra^is^e^d  ***  ±S  th*  ^ 


96 


TN  4565-3-71  Vol  II 


When  Subroutine  GENI  is  called,  the  first  data  to  be  entered  into  the 
MASTER-ASTER  array  is  the  RPP  geometry.  To  accomplish  this.  Subroutine  GENI 
calls  Subroutine  RPPIN  to  enter  and  process  the  RPP  data.  When  Subroutine 
RPPIN  returns  control  to  Subroutine  GENI,  the  contents  of  the  MASTER-ASTER 
array  are  as  shown  in  Figure  42. 


LBASE 


LRPPD 


LABUT 


LAR 


Not 

used 

— i - '“n - 

(  I  \ 

_ t _ 
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_ L _ 

J 

K 

• 

,  *  - _ _ 1 
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t  1 

1  T  1 

i _ _ i 

3 

K 
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RPP  Coordinate 

* - - - 

1 

* 

• 

• 

-1 

RPP  Coordinate  i 

Not 
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i  i 

;  l  i 

L 

1  Not 
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*  i 

*  I  » 

! _ _ _ _ _ I _ 

L 

i - - — - — — — *  • 

• 

,  •  _ * 

Not 
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t  ' 

i  L  * 

1 _ . — - i — — 

L 

0  - 

*  - 

-  0 

r: - - -  -  - -oj 

u  - 

— 

o  - 

% 

• 

(continue 

with  Figure  43) 

|  RPP  1,  Side  1 


RPP  1,  Side  2 


I 


RPP  1,  Side  3 


RPP  (NRPP),  Side  6 


FIG.  42.  RPP  Data  Storage  (Subroutine  RPPIN) 
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afLd»  l0Catl°n  <eqUal  “  °"e>  °f  RPP  Pointer  seetion 


I,  pointer  to  list  of  abutting  RPP's  for  given  side  (15  bits) 

J,  number  of  RPP's  that  abut  given  side  Q5  bltg) 

K,  pointer  to  RPP  coordinate  for  given  side 


locationPofXLRPPn0LZ’  ma*lmum  or  m±ninmra  coordinate  value.  The 

per  word.  ^oiMer^'iJ^sj^tion'^BASE61'  packed  one  or  two 

abutting  RPP' s  i„  this  section  P  “  “  Speclflc  1Ist  =f 

L,  abutting  RPP's  (15  bits) 


LAR,  last  location  of  RPP  data 


FIG.  42.  RPP  Data  Storage  (Subroutine  RPPIN)  (Concluded) 
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After  all  RPP  data  has  been  entered  into  the  MASTER-ASTER  array  by  Sub¬ 
routine  RPPIN,  the  body  data  is  entered,  processed,  and  stored  in  the  MASTER- 
ASTER  array.  The  new  body  dimensions  are  stored  backward  from  location  NDQ 
with  pointer  LBOT  always  equal  to  the  new  starting  location  of  the  body  dimen¬ 
sions.  The  individual  body  dimensions  are  located  by  pointers  and  computed 
and  stored  in  the  LBOD  section  of  the  MASTER-ASTER  array.  The  overall  pointer 
to  a  group  of  pointers  for  a  given  body  is  stored  in  the  LBODY  section  follow¬ 
ing  the  RPP  data  section  as  shown  in  Figure  43. 

When  all  body  data  is  processed  and  stored  in  the  MASTER-ASTER  array, 
there  exists  a  large  unused  section  in  the  array  between  the  LBOD  body 
dimension  pointers  and  the  body  dimensions  at  the  end  of  the  MASTER-ASTER 
array  at  location  LBOT  through  NDQ  (see  Figure  43).  Therefore,  Subroutine 
GENI  shifts  all  the  data  at  the  end  of  the  MASTER-ASTER  array,  LBOT  through 
NDQ,  to  the  next  available  location  (LDATA)  after  the  LBOD  body  dimension 
pointer  section.  The  body  dimension  pointers  in  section  LBOD  are  also 
adjusted  to  account  for  the  shift  of  the  body  dimensions.  When  the  shift 
is  complete,  LDATA  points  to  the  next  available  location  in  the  MASTER-ASTER 
array.  It  should  also  be  noted  that  due  to  the  shift  of  LBOT  through  NDQ, 
pointer  LBOT  is  no  longer  correct  and  the  variable  name  is  dropped. 


After  all  body  data  is  entered,  processed,  and  stored,  and  the  body 
dimensions  at  the  end  of  the  MASTER-ASTER  array  have  been  shifted,  the 
region  data  is  entered  and  stored  following  the  shifted  body  dimension  data 
as  shown  in  Figure  44. 

When  the  region  data  has  all  been  entered  and  stored,  the  region  enter/ 
leave  tables  are  prepared  for  each  body  in  the  target  geometry,  and  are 
stored  following  the  region  data  in  the  MASTER— ASTER  array.  During  prepara¬ 
tion  and  storing  of  these  tables,  the  remaining  data  (LE,  LL,  NE,  NL)  for 
each  body  in  the  LBODY  section  is  computed  and  stored  (see  Figure  43).  The 
region  leaving  table  for  each  body  is  prepared  and  stored  first,  immediately 
followed  by  the  region  entering  table  for  each  body  as  shown  in  Figure  45. 

After  the  region  enter/leave  tables  have  been  prepared  and  stored, 
storage  space  in  the  MASTER-ASTER  array  is  reserved  for  the  entry  intersect 
distance  data  (LRIN) ,  the  exit  intersect  distance  data  (LROT) ,  and  Sub¬ 
routine  G1  working  storage  (LIO).  Data  for  these  three  reserved  storage 
sections  is  computed  during  Subroutine  Gl.  The  next  available  storage  loca¬ 
tion  after  the  LIO  section,  LEGEOM,  is  also  determined.  One  word  per  body  is 
reserved  for  each  of  the  sections  LRIN,  LROT,  and  LIO  as  shown  in  Figure  46. 
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(Refer  to  Figure  42) 
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Body  Dimension 

FIG,  43,  Body  Pointer  Storage  (Subroutine  GENI) 


LBODY  Storage 
Requires  3* 
(NRPP+NBODY) 
Words 


Body  Dimension 
Pointers 


Unused 
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LBODY,  starting  location  of  body  pointer  storage.  The  location  of 
LBODY  is  equal  to  the  first  location  following  the  RPP  data  section. 

I TYPE,  body  type  (15  bits) 

LDATA,  pointer  for  storing  pointers  in  LBOD  section  for  given 
body  (15  bits).  When  all  pointers  are  stored,  LDATA  is  equal 
to  the  next  available  location  after  the  LBOD  section. 

LE,  LL,  NE,  NL,  nothing  stored  in  these  locations  at  this  time 
in  program  (contain  zeroes).  For  eventual  contents,  refer  to 
the  discussion  of  Figure  45. 

LBOD,  starting  location  of  pointers  to  body  dimensions  in  section  LBOT . 

P,  pointers  to  body  dimensions.  Packed  two  per  word  (15  bits). 
LDATA  of  LBODY  section  points  to  specific  pointers  required 
for  a  given  body 


LBOT,  starting  location  of  body  dimensions. 


FIG.  A3.  Body  Pointer  Storage  (Subroutine  GENI)  (Concluded) 
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(Refer  to  Figure  43) 


>  LBOD  Section 
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•  t 
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y Formerly  LBOT 


NDQ 


Available  Storage 


LREGD ,  starting  location  of  region  pointer  data 

LB,  pointers  to  operator/body  list  for  a  given  region  (15  bits) 

NC,  number  of  bodies  in  list  for  a  given  region  (15  bits) 

LREGL,  lists  of  operator /body  for  each  region*  LB  of  LREGD  points  to 
a  specific  list  In  this  section 

Operator- (OR) s  (+) ,  or  (-)  to  denote  relationship  of  given  body 
to  region  (15  bits) 

NBG,  body  number  of  specific  body  in  region  (15  bits) 

(LDATA),  pointer  for  storing  operator /body  in  LREGL  region  data 
section  in  next  available  storage  location*  When  all  region  data 
are  entered,  LDATA  points  to  next  available  storage  location  after 
the  region  data* 

FIG,  44,  Region  Storage  (Subroutine  GENI) 
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(Refer  to  Figure  44) 
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LENLV (LDATA 
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} 
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Available  Storage 
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LENLV,  starting  location  of  the  region  enter/leave  tables  for  each 
body 


J,  first  region  entry  for  first  body  of  first  leaving  table 

Jn,  last  region  entry  for  last  body  of  last  entering  table 

(LDATA),  pointer  for  storing  regions  in  enter/leave  tables  at 
next  available  storage  location.  When  all  enter/leave  tables 
are  entered,  LDATA  points  to  the  next  available  storage  location 
after  the  enter/leave  tables. 

FIG.  45.  Region  Enter /Leave  Tables  (Subroutine  GENT) 
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(Refer  to  Figure  45) 
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LRIN,  starting  location  reserved  for  entry  intersect  distance  data. 

One  storage  word  is  reserved  for  each  body  in  the  target  geometry 

LROT,  starting  location  reserved  for  exit  intersect  distance  data. 

One  storage  word  is  reserved  for  each  body  in  the  target  geometry 

LIO,  starting  location  reserved  for  Subroutine  G1  for  working  storage. 
One  storage  word  is  reserved  for  each  body  in  the  target  geometry 

LRI ,  body  surface  number  of  entry  intersect  (6  bits) 

LRO,  body  surface  number  of  exit  intersect  (6  bits) 

KLOOF,  internal  loop  counter  (15  bits) 

LEGEOM,  the  next  available  location  at  the  end  of  the  target  geometry 

FIG.  46.  Reserved  Storage  (Subroutine  GENI) 
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After  the  LRIN,  LROT,  and  LIO  storage  space  has  been  reserved  in  the 
MASTER-ASTER  array ,  control  is  returned  to  the  MAIN  program  where  the  next 
phase  relative  to  the  MASTER-ASTER  array  is  the  entry  and  storage  of  the 
region  component  and  identification  code  data;  it  is  stored  near  the  end  of 
the  MASTER-ASTER  array  and  preceded  by  a  special  code  as  shown  in  Figure  47), 


(Refer  to  Figure  46) 
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LIRFO,  starting  location  of  region  component /identification  code  data. 
The  location  of  LIFRO  is  equal  to  NDQ- NRMAX- 10 

ICODE,  region  component  code  (15  bits) 

IDENT,  region  identification  code-  Stored  as  IDENT+1  to  prevent 
storing  a  negative  number  (15  bits) 

(LIRFO-1),  special  code  that  precedes  region  component/identification 
code  data.  Not  used  in  MAGIC  program. 


FIG-  47*  Region  Component /Identification  Code  Data  (MAIN  Program) 
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If  Subroutine  AREA  is  to  be  executed,  the  last  data  to  be  stored  in  the 
MASTER-ASTER  array  is  the  presented  area  of  the  target  by  component  code  (1-999). 
The  presented  area  data  is  stored  in  the  MASTER-ASTER  array  preceding  the 
region  component/ identification  code  data,  as  shown  in  Figure  48.  One- thousand 
storage  locations  are  reserved  for  the  presented  area  of  the  target  by  com¬ 
ponent  code  (1—999).  The  1000  storage  locations  are  zeroed  before  the  pre¬ 
sented  areas  are  stored.  Therefore,  the  special  code  at  location  LIRF0-1 
explained  above  is  also  zeroed. 
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LAREA,  starting  location  of  the  presented  areas  by  component  code 
of  the  target  from  a  given  azimuth  and  elevation  angle.  The 
location  of  LAREA  is  equal  to  LIRFO-IOOO. 

FIG.  48.  Presented  Area  by  ICODE  (Subroutine  AREA) 
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PROGRAM  MAGIC  (MAIN  PROGRAM) 

The  purpose  of  the  MAIN  routine  of  the  MAGIC  program  is  to  direct  the 
entire  flow  of  the  MAGIC  program,  calling  on  various  subprograms  to  perform 
specific  functions* 

There  are  essentially  two  phases  to  the  MAGIC  program;  geometry  input 
processing  and  main  ray-tracing  control*  The  MAIN  routine  initializes  various 
program  constants  and  parameters  and  enters  from  card  input  the  program  con¬ 
trol  parameters  *  The  target  geometry  is  entered  by  Subroutine  GENT,  which 
enters  and  prepares  the  target  geometry  data  for  the  ray- tracing  phase  of  the 
MAGIC  program*  The  target  geometry  can  then  be  written  out  on  tape.  If  the 
target  geometry  data  has  already  been  processed  by  a  previous  run,  the  input 
tape  is  entered,  and  Subroutine  GENI  is  therefore  not  called. 

After  the  input  processing  phase,  the  MAIN  program  has  the  option,  based 
on  the  input  control  parameters,  of  calling  Subroutine  TESTG  to  fire  a  ray 
from  point  to  point  and  of  calling  Subroutine  VOLUM  to  compute  the  volumes  by 
region.  The  region  identifiers  and  space  code  numbers  are  then  entered  and 
stored  into  the  MASTER-ASTER  array. 

At  this  point,  the  ray-tracing  phase  of  the  program  is  initiated.  A 
card  is  entered  with  the  number  of  angles  of  attack,  and  Subroutine  GRID  is 
called  to  perform  the  ray-tracing  control  phase  for  each  aspect  angle.  When 
the  ray-tracing  phase  of  the  program  is  complete,  the  MAIN  program  has  the 
option,  based  on  the  input  control  parameter,  of  calling  Subroutine  AREA  to 
compute  the  presented  area  by  component  for  each  aspect  angle. 

The  following  description  is  an  outline  of  the  purpose  and  flow  of  the 
MAIN  program.  The  steps  that  describe  the  program  follow  the  steps  of  the 
conceptual  flowchart  of  Figure  49, 

Step  1 


Initialize  various  constants  and  data  to  be  used  in  the  program, 
and  enter  and  set  the  options  to  be  used  in  the  program. 

Step  2 

Test  to  determine  if  the  target  description  data  is  to  be  entered 
from  a  tape  prepared  by  a  previous  run  of  the  target.  If  it  is,  the 
tape  is  read  in  and  the  title  of  the  target  geometry  is  printed  out. 

Step  3 

If  the  target  description  is  not  to  be  entered  from  tape,  the 
entire  ASTER  array  is  zeroed. 
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Step  4 

Call  Subroutine  GENI  to  enter,  process,  and  organize  the  target 
geometry  input  data  into  a  usable  format  for  use  by  subsequent  subroutines  * 

Step  5 

After  the  target  description  data  has  been  entered  and  processed  by 
Subroutine  GENI,  the  option  for  putting  the  target  description  on  tape 
for  subsequent  runs  is  tested*  If  positive,  the  target  geometry  is 
written  out  on  tape* 

Step  6 

Test  the  Subroutine  TESTG  option  to  determine  if  Subroutine  TESTG 
is  to  be  called  to  fire  and  trace  a  ray  from  one  given  point  to  another. 

Step  7 

Test  the  Subroutine  VOLUM  option  to  determine  if  it  is  to  be  called 
to  compute  the  volumns  of  a  region (s)  of  the  target. 

Step  8 

Enter,  print  out,  and  store  for  each  region  of  the  target  geometry 
the  component  code,  space  code,  and  special  identification*  After  all 
component  code  and  identification  code  data  for  the  regions  have  been 
entered,  enter  another  program  option  card. 

Step  9 

Test  the  Subroutine  GRID  option  to  determine  if  Subroutine  GRID  is 
to  be  called  to  generate  and  control  all  of  the  input  and  processing  for 
a  single  attack  plane. 

Step  10 

Test  the  Subroutine  AREA  option  to  determine  if  Subroutine  AREA  is 
to  be  called  to  compute  the  presented  area  of  the  target  from  the  given 
attack  plane.  The  program  then  terminates. 
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FIG.  49. 


MAIN  Program  Concept  Flowchart 
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FIG.  49.  MAIN  Program  Concept  Flowchart  (Concluded) 
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INPUT  PROCESSING  (SUBROUTINE  GENI) 

Subroutine  GENI  is  the  main  control  routine  for  target  geometry  input 
processing.  Its  purpose  is  to  organize  the  target  geometry  input  data  into 
a  usable  format  for  subsequent  subroutines.  All  of  the  organized  data  is 
stored  in  a  large  array  called  the  MASTER-ASTER  array. 

The  processing  of  the  body  input  descriptions  is  accomplished  by  calling 
Subroutine  RPPIN  to  enter  and  process  the  RPP  data,  calling  Subroutine  ALBERT 
to  enter  and  process  the  arbitrary  polyhedron  (ARB)  data,  or  calling  Subroutine 
ARIN  to  enter  and  process  the  arbitrary  surface  (ARS)  data.  All  other  bodies 
are  entered  and  processed  directly  by  Subroutine  GENI. 

When  all  of  the  body  input  data  has  been  processed.  Subroutine  GENI 
enters  the  input  data  for,  the  region  descriptions,  stores  it  in  the  MASTER- 
ASTER  array,  and  then  computes  the  region  enter/ leave  tables. 

The  following  description  is  an  outline  of  the  purpose  and  flow  of 
Subroutine  GENI.  The  steps  that  describe  Subroutine  GENI  follow  the  steps  of 
the  conceptual  flowchart  of  Figure  50. 

Step  1 

The  body  counter  array  is  cleared  for  the  new  input  data.  This  array 
counts  the  number  of  times  each  body  type  is  used  to  describe  the  target 
geometry. 

Step  2 

The  title  for  the  current  target  geometry  is  entered  and  printed 

out. 

Step  3 

Enter  and  print  program  control  parameters  for  the  number  of  RPP's, 
the  number  of  bodies,  the  number  of  regions,  the  MASTER-ASTER  array 
print  option,  and  the  test  region  data  option. 

Step  4 

Test  to  determine  if  there  are  to  be  any  RPP’s  in  the  target  geom¬ 
etry.  If  so,  branch  to  call  the  RPP  processing  subroutine. 

Step  5 

Call  Subroutine  RPPIN  if  an  RPP(s)  is  used  to  describe  the  target 
geometry  to  enter,  process,  check,  print,  and  store  the  RPP  data  in  the 
MASTER-ASTER  array. 
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Step  6 

Compute  and  assign  locations  for  storing  body  data  pointers  and  body 
dimension  data. 

Step  7 

Enter  body  data  card  containing  program  control  parameters,  body 
type,  and  six  body  dimensions  for  the  given  body.  This  is  the  beginning 
of  a  loop  used  to  enter  and  process  all  of  the  body  data  of  the  target 
geometry. 

Step  8 

Increment  the  counter  for  the  specific  body  type  entered  and  compute 
and  store  pointer  for  the  body  data. 

Step  9 

Test  body  type  and  branch  accordingly  to  section  for  entering  addi¬ 
tional  data  if  required  and  to  compute,  process,  and  check  body  data. 

Step  10 

If  the  body  type  is  a  BOX,  RCC,  REC,  TRC,  ELL,  RAW,  TEC,  or  TOR, 
set  number  for  additional  body  dimensions  to  be  entered  for  the  given 
body. 

Step  11 

Enter  the  number  of  additional  body  dimensions  as  determined  from 
Step  10  and  print  all  of  the  body  data  for  the  given  body. 

Step  12 

Compute  additional  data  that  is  required  for  the  body  that  was  not 
part  of  the  input  and  perform  check  on  the  data.  For  a  complete  and 
detailed  discussion  of  the  computation  and  testing  of  the  body  data,  refer 
to  the  appropriate  section  from  program  statement  250  to  statement  300 
of  the  simulation  model. 

Step  13 

If  the  body  type  is  a  sphere,  the  body  dimensions  are  all  on  one 
data  card  so  no  additional  input  Is  required  and  the  input  Is  printed  out. 
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Step  14 

Call  Subroutine  SEE3  to  store  the  body  data  and  body  data  pointers 
for  a  SPH,  BOX,  RCC,  REC,  TRC,  ELL*  RAW,  TEC,  or  TOR  in  the  MASTER-ASTER 
array  * 

Step  15 

If  the  body  type  is  an  arbitrary  surface  (ARB),  the  data  entered 
by  the  initial  card  is  printed  out* 

Step  16 

Call  Subroutine  ALBERT  to  enter  additional  ARB  data  and  to  compute 
additional  data  required*  The  data  and  pointers  are  then  stored  in  the 
MASTER- ASTER  array  by  the  subroutine. 

Step  17 

Call  Subroutine  ARIN  to  enter,  check,  process,  and  store  data  for 
the  arbitrary  surface  (ARS)_ 

Step  18 

Test  to  determine  if  more  body  data  is  to  be  entered  for  the  target 
geometry  and  if  so,  return  to  enter  the  next  body  data/control  card. 

Step  19 

Print  out  a  table  giving  the  number  of  times  each  body  was  used  in 
the  target  description,  and  print  out  the  starting  locations  of  major 
data/pointer  sections  in  the  MASTER-ASTER  array* 

Step  20 

When  the  body  data  is  first  entered,  it  is  stored  toward  the  end  of 
the  MASTER-ASTER  array  with  the  pointer  data  and  RPP  data  at  the  front* 
This  step  moves  the  body  data  to  just  after  the  pointer  data* 

Step  21 

Initialize  counters,  and  assign  and  compute  pointers  for  entering, 
processing,  and  checking  region  combination  data. 

Step  22 

Enter  region  data  card  containing  region  number,  the  logical  opera¬ 
tor,  and  all  of  the  bodies  that  comprise  the  region* 
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Step  23 

Check  validity  of  the  region  data  by  testing  each  body  number  in 
the  region  description  to  verify  that  each  body  number  is  not  greater 
than  the  number  of  bodies  plus  the  number  of  RPP's  used  to  describe  the 
target  geometry. 

Step  24 

Print  out  the  region  data*  and  compute  the  pointer  to  the  region 
data  for  the  region  and  store  the  region  data. 

Step  25 


Test  for  logical  operator  and  convert  to  integer  depending  upon 
whether  operator  was  positive  or  negative  to  represent  an  AND  or  OR 
condition. 

Step  26 

Pack  and  store  the  operator  and  body  number  in  the  region  data  sec¬ 
tion  and  continue  testing  all  operators  and  body  numbers  in  the  given 
region. 

Step  27 

Branch  to  enter  data  for  next  region  if  all  regions  have  not  been 
entered  and  processed. 

Step  28 

Verify  that  all  regions  of  the  target  geometry  have  been  entered 
and  that  there  were  no  invalid  body  numbers  in  the  region  data. 

Step  29 

Test  program  input  control  parameter  to  determine  if  the  validity 
of  the  region  data  is  to  be  checked. 

Step  30 


If  the  validity  of  the  region  data  is  to  be  checked,  each  of  the 
operators  and  body  numbers  of  each  region  is  compared  with  each  of  the 
operators  and  body  numbers  of  all  other  regions  to  verify  that  there  is 
no  area  in  one  region  that  is  identical  to  another  region.  For  a  com¬ 
plete  and  detailed  discussion  of  the  testing  of  the  region  data,  refer 
to  the  DO  456  DO  loop  (in  the  simulation  model)  of  Subroutine  GENI. 
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Step  31 

Compute  and  store  the  region  enter/leave  tables.  For  a  complete 
and  detailed  discussion  of  the  method  used  in  preparing  and  storing 
these  tables,  refer  to  the  DO  590  DO  loop  in  the  simulation  model  of 
Subroutine  GENI. 

Step  32 


Reserve  one  word  of  storage  for  each  geometric  shape  used  to  describe 
the  target  geometry  for  the  entry  intersect  data,  the  exit  intersect  data, 
and  the  Subroutine  G1  temporary  storage  area,  and  assign  pointers  to  these 
areas  plus  region  data  pointers. 

Step  33 

Test  program  input  control  parameter  to  determine  if  the  region 
enter/leave  tables  are  to  be  printed.  If  not,  control  is  returned  to  the 
MAIN  program. 

Step  34 

Print  out  region  enter /leave  tables. 

Step  35 

Test  program  input  control  parameter  to  determine  if  the  MASTER- 
ASTER  array  to  the  end  of  the  region  enter/leave  tables  is  to  be  printed 
out.  If  not,  control  is  returned  to  the  MAIN  program. 

Step  36 

Print  out  the  MASTER-ASTER  array  to  the  end  of  the  region  enter/ 
leave  tables  and  return  control  to  the  MAIN  program. 
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FIG. 


50.  Subroutine  GENI  Concept  Flowchart 
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FIG.  50.  Subroutine  GENI  Concept  Flowchart  (Continued) 
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FIG.  50. 


Subroutine  GENI  Concept  Flowchart 


(Continued) 
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FIG.  50.  Subroutine  GENI  Concept  Flowchart  (Concluded) 
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INPUT  OF  RECTANGULAR  PARALLELEPIPED  (SUBROUTINE  RPPIN) 

Subroutine  RPPIN  is  called  by  Subroutine  GENI  during  the  geometry  input 
and  processing  phase  of  the  MAGIC  program  if  rectangular  parallelepiped  (RPP) 
data  is  to  be  entered.  This  subroutine  enters  the  RPP  data,  computes  the 
number  of  abutting  RPP's  to  each  side,  computes  the  location  of  those  abutting 
computes  the  location  of  the  boundary  coordinate  for  each  side  of  each 
,  ant-*"  6  geometry,  and  eliminates  redundant  boundary  coordinates  in 

!**  wpp  coordinate  data.  The  validity  of  the  RPP  data  is  checked  if  more  than 
one  RPP  is  used  to  describe  the  target  geometry. 

The  following  description  is  an  outline  of  the  purpose  and  flow  of  Sub¬ 
routine  RPPIN.  The  steps  that  describe  Subroutine  RPPIN  follow  the  steps  of 
the  conceptual  flowchart  of  Figure  51. 

Step  1 


Imtiaiize  counters  and  storage  pointers  for  the  starting  location 
o  the  pointer  data  and  the  beginning  location  of  the  RPP  boundary  coordi- 

n  a  111  c  J 


Step  2 


RPP. 


Enter  and  print  out  the  six  boundary  coordinates  for  the  current 


Step  3 

Test  the  x,  y,  or  z  pair  of  boundary  coordinates  of  the  given  RPP 
o  verify  that  the  maximum  boundary  coordinate  is  greater  than  the  mini¬ 
mum  boundary  coordinate.  If  this  is  not  true,  print  out  an  error  mes¬ 
sage  and  stop  the  program. 

Step  4 


tested eStTf°  d*te™lne  if  a11  coordinate  pairs  of  the  given  RPP  have  been 
tested.  If  not,  branch  to  test  the  next  pair. 

Step  5 

MCeSSt0cLbr?^rLrr1"arS  ?  RPP  ’‘oiacer  «  boundary  coordi- 
wpp?  j  redundant  boundary  coordinates  such  as  for  abutting 

RPP  s,  and  eliminate  to  save  storage  space.  In  such  a  case,  only  the 
pointer  to  the  redundant  coordinate  is  stored. 

Step  6 


„  .  Ik  ?  determine  if  more  RPP  data  is  to  be  entered.  If  not,  com- 
pu  e  the  pointer  for  the  beginning  of  the  abutting  RPP  data  and  set 
pointers  to  the  last  location  of  the  boundary  coordinate  data. 
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Step  7 

Begin  loop  for  checking  each  side  of  each  RPP  for  abutting  RPP 
surfaces. 

Step  8 

Test  each  side  of  each  RPP  for  abutting  RPP's  and  store  the  count. 
For  a  detailed  discussion  of  determining  the  abutting  RPP's  and  other 
calculations  in  this  subroutine,  refer  to  the  discussion  in  the  simula¬ 
tion  model. 

Step  9 

Test  to  determine  if  more  RPP's  are  to  be  checked  for  abutting  RPP's 
Step  10 

Test  validity  of  RPP  data,  if  there  is  more  than  one  RPP  in  the  tar¬ 
get  geometry,  to  verify  that  for  each  side  of  an  RPP  there  is  either  an 
abutting  RPP,  or  if  the  side  faces  the  outside  of  the  geometry  that  it 
has  the  same  boundary  coordinate  as  those  same  sides  of  the  other  RPP  s 
in  the  geometry  whose  sides  are  on  the  same  outside  boundary.  Set 
variable  to  last  word  of  RPP  data  and  return  control  to  Subroutine  GENI. 
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iIG.  51*  Subroutine  RPPIN  Concept  Flowchart 
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INPUT  OF  ARBITRARY  POLYHEDRON  (SUBROUTINE  ALBERT) 

Subroutine  ALBERT  is  called  by  Subroutine  GENT  during  the  geometry  input 
and  processing  phase  of  the  MAGIC  program  whenever  input  data  for  an  arbitrary 
polyhedron  is  to  be  entered.  Subroutine  ALBERT  computes  the  equation  of  each 
side  of  six  possible  sides  of  the  ARB,  verifies  that  all  four  vertices  of  a 
given  plane  are  in  the  same  plane,  determines  the  relative  position  of  the 
side  with  respect  to  the  other  sides  of  the  ARB,  and  stores  the  coefficients 
of  the  plane  equation  in  the  MASTER- ASTER  array  along  with  the  location  of 
the  data  for  each  plane. 


The  following  description  is  an  outline  of  the  purpose  and  flow  of  Sub¬ 
routine  ALBERT.  The  steps  that  describe  Subroutine  ALBERT  follow  the  steps 
of  the  conceptual  flowchart  of  Figure  52. 

Step  1 

The  coordinates  of  the  first  two  vertices  of  the  ARB  are  entered  on 
the  body  data  card  by  Subroutine  GEN1  and  passed  to  this  subroutine. 
These  coordinates  are  stored  in  an  array  used  for  storing  all  of  the 
coordinates  of  the  vertices  of  the  ARB. 

Step  2 

Enter  the  coordinates  of  the  remaining  six  vertices  and  the  four 
ordinal  vertex  numbers  for  each  of  the  six  faces.  The  coordinates  of 
the  eight  vertices  of  the  ARB  and  the  ordinal  vertex  numbers  for  the 
six  sides  are  then  printed  out. 

Step  3 

Begin  loop  to  compute  the  coefficients  for  the  equation  of  the  six 
planes  of  the  ARB,  vertify  that  all  of  the  points  of  a  side  lie  in  a 
plane,  and  determine  the  relative  position  of  the  side  with  respect  to 
the  other  sides  of  the  ARB.  This  step  retrieves  the  first  three  vertex 
coordinates  of  the  given  plane  and  computes  the  coefficients  A,  B,  C, 
and  D  of  the  equation  of  a  plane 

Ax  4-  By  +  Cz  4-  D  =  0 
using  the  three-point  form 


yl  Z1 1 

Z1 X1 1 

X1  yx  1 

xi  yi  zi 

y2  z2  1 

X  + 

%2  xg  1 

y  + 

x2  y2  1 

z  - 

x2  y2  z2 

y3  z3  1 

z  ^  1 

x3  ^3  ^ 

X3  ^3  z3 

123 


TN  4565-3-71  Vol  II 


Therefore 

A  =  “5r2z3+z2^3+^l23_zly3~ylz2+zly2 

B  =  x2z3“z2s3“xlz3'H3t3zl+xiz2_x2zl 
C  =  y2x3'y3Vylx3+y3xl+7Xx2'y2xl 

D  =  x1(y2z3-y3z2)  "  x2(yiz3'y3zi)  +  x3fy1z2’y2zl) 

Step  4 

Test  for  a  degenerate  plane  by  testing  the  sum  of  the  square  of  the 
coefficients 


for  a  value  of  zero.  If  2ero,  the  message  DEGENERATE  PLANE  is  printed 
out,  the  constant  term  is  set  to  its  absolute  value  and  the  program 
branches  to  store  the  data  for  the  plane. 

Step  5 


Test  for  an  undefined  plane  by  testing  the  sum  of  the  square  of  the 
coefficients  against  a  very  small  value  of  the  square  of  the  length 
between  two  of  the  vertices  of  the  plane.  If  the  sum  of  the  squares  is 
not  greater,  the  message  UNDEFINED  PLANE  along  with  data  about  the  plane 
is  printed  out  and  the  program  branches  to  consider  the  next  plane. 

Step  6 


Compute  the  direction  cosines  of  a  perpendicular  from  the  origin  to 
the  plane  being  considered  where  these  direction  cosines  are  defined  as 


COS 


cos 


cos 


a 


X 


a 

y 


a 

z 


=  a/v42  +  B2 
=  b/v42  +  B2 
=  C^V A2  +  B2 


+  C 


+  c 


+  c 


2 


2 


2 
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Step  7 

Retrieve  coordinates  of  the  fourth  vertex  of  plane  and  compute  per¬ 
pendicular  distance  from  point  to  plane  formed  by  other  three  vertices 
using  the  distance  from  a  point  (Xj ,  y^,  z^)  to  a  plane  (Ax  +  By  +  Cz 

+  D  =  0)  relationship 

Ax^  +  By^  +  Cz7  +  D 

distance  = 


>/a2  +  b2  +  c2 


Step  8 

Test  to  determine  if  the  fourth  vertex  lies  on  the  plane  by  comparing 
the  square  of  the  distance  with  a  given  tolerance.  If  not  within  toler¬ 
ance  (not  on  plane),  print  out  FOUR  POINTS  NOT  IN  PLANE  along  with  data 
about  the  plane  and  branch  to  consider  the  next  plane. 


Step  9 

Retrieve  the  four  other  vertices  of  the  ARB  and  substitute  each  in 
the  plane  equation  for  the  current  plane  and  store  the  four  results  for 
tests. 

Step  10 

Test  results  of  Step  9  to  determine  relative  position  of  the  remain¬ 
ing  four  points  with  respect  to  current  plane  (in  back  of,  on,  or  in 
front  of). 

Step  11 

Test  to  determine  if  remaining  four  points  are  all  on  the  same  side 
of  the  current  plane.  If  not,  there  is  an  error  in  the  ARB  data,  so  the 
message  ERROR  IN  SIDE  DESCRIPTION  along  with  data  about  the  current 
plane  and  the  remaining  four  vertices  are  printed  out. 

Step  12 

Reverse  coefficients  of  current  plane  of  the  remaining  four 
vertices  to  establish  the  sign  convention  of  the  ARB  such  that  the 
positive  side  of  the  given  plane  is  on  the  interior  of  the  ARB.  This 
insures  that  the  normal  for  each  plane  is  directed  into  the  ARB. 

Step  13 

Call  Subroutine  SEE3  to  store  the  coefficients  and  the  constant  term 
in  the  ASTER  array,  and  to  compute  the  pointer  to  the  data  and  store  in 
the  MASTER  array. 
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Step  14 

Test  to  determine  if  all  of  the  sides  of  the  ARB  have  been  computed, 
tested,  and  stored;  if  not,  the  program  branches  to  consider  the. next 
side. 
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FIG.  52.  Subroutine  ALBERT  Concept  Flowchart 
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FIG.  52.  Subroutine  ALBERT  Concept  Flowchart  (Concluded) 
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INPUT  OF  ARBITRARY  SURFACE  (SUBROUTINE  ARIN) 

Subroutine  ARIN  is  called  by  Subroutine  GENI  during  the  input  processing 
phase  of  the  MAGIC  program  to  enter,  check,  process,  and  store  the  data  ele¬ 
ments  of  a  given  arbitrary  surface  (ARS)  in  the  MASTER- ASTER  array. 

The  following  description  is  an  outline  of  the  purpose  and  flow  of  Sub¬ 
routine  ARIN.  The  steps  that  describe  Subroutine  ARIN  follow  the  steps  of 
the  conceptual  flowchart  of  Figure  53. 


Step  1 

Enter  the  number  of  curves  (M)  used  to  describe  the  ARS  and  the 
number  of  points  on  each  curve  (N). 

Step  2 

Compute  the  total  number  of  points  used  to  describe  the  ARS  (number 
of  curves  times  the  number  of  points/curve,  M*N) ,  the  number  of  points 
to  be  stored  (NP=2N(M-1) ) ,  and  the  number  of  storage  words  required  for 
the  given  ARS.  The  information  is  then  printed  out. 

ste£_3 

Test  to  determine  if  there  were  curve  and  point  data  entered  for 
the  ARS.  If  not,  an  error  message  is  printed  out  and  the  program 
returns  control  to  Subroutine  GENI. 


Step  4 

Reserve  storage  in  the  body  data  section  of  the  ASTER  array  for  the 
ARS  data,  and  set  and  store  points  for  the  body  data. 


Step  5 


Begin  loop  for  each  curve  of  the  ARS  to  enter  the  coordinates  of 
each  point  and  store  them  in  the  NP=2N(M-1)  storage  locations,  NP  loca¬ 
tions  are  required  since  each  point  requires  four  storage  words  for  the 
three  coordinates  and  a  flag  to  specify  whether  the  point  along  with  the 
following  two  points  form  a  valid  (0)  or  invalid  (-1)  triangle.  Also, 
the  points  are  stored  in  pairs  between  curves.  For  example,  given  an 
ARS  of  five  curves  (M=5)  with  four  points  per  curve  (N=4) ,  the  total 
points  to  be  entered  would  be  M*N=5*4=20,  but  would  require  NP-2N(M-1) 
=2*4 (5-l)-32  points  of  storage  (four  words  per  point).  These  points. 


P  ,  would  be  stored  in  the  following  sequence: 
MN 


11 


,P21’  P12,P22’  P13’ 


P23;  P14,P24;  P21’P31: 


P43,P53;  P44,P54‘ 
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Step  6 


.  „  It  \  d*temln®  if  the  points  for  more  curves  on  the  ARS  are  to 

,  f®d*„  If  j0t»  the  number  of  points  stored,  NP=2N(M-1),  is  stored 

n  the  first  word  of  ARS  data  and  the  second  word  is  initialized  to  zero 

“Jff“  ?  hlJ  counter-  Compute  and  print  out  the  maximum  number  of 
possible  triangles  on  the  ARS. 


Step  7 


Test  each  three  consecutive  points  to  determine  if  they  form  a  tri¬ 
angle  by  computing  the  cross  product  of  two  legs  of  the  triangle  and  the 

^rLnv?e  H  ^e.result-  If  zer°>  the  three  points  form  a  degenerate 

ooints1  ?he  3  ~k  ^  SftOTf/n  the  fourtb  «°rd  of  the  first  of  the  three 
p  ints.  The  number  of  valid  triangles  would  then  be  reduced  by  one. 

Step  8 


Print  out  the 
and  return  control 


number  of  valid  triangles  on  the  surface  of  the  ARS 
to  Subroutine  GENI. 
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Fl(i.  53.  Subroutine  ARIN  Concept  1-lowchart 
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GRID/ATTACK  PLANE  (SUBROUTINE  GRID) 


Subroutine  GRID  is  the  main  control  program  for  tracking  a  ray  through 
the  target  geometry.  It  is  called  by  the  main  control  program  of  MAGIC  and 
controls  all  the  input  and  processing  for  a  single  attack  plane  after  read¬ 
ing  in  data  and  generating  the  attack  plane  at  the  given  angle  of  attack. 

This  plane  is  divided  into  a  grid  of  square  cells,  with  each  cell  acting  as 
the  point  of  origin  of  a  ray  (an  option  is  available  to  skip  a  random  number 
of  cells).  The  tracing  of  each  ray  from  the  grid  through  the  target  geometry 
is  accomplished  by  Subroutine  TRACK.  Subroutine  GRID  therefore  calls  Sub¬ 
routine  TRACK  once  for  each  ray  or  shotline  after  Subroutine  GRID  has  defined 
the  ray. 

The  fallowing  description  is  an  outline  of  the  purpose  and  flow  of  the 
MAIN  program.  The  steps  that  describe  the  program  follow  the  steps  of  the 
conceptual  flowchart  of  Figure  54. 

Step  1 

Enter  the  grid  input  parameters.  Initialize  specific  parameters  If 
not  set  by  the  input,  and  print  the  grid  input  parameters. 

Step  2 

Compute  the  sine  and  cosine  of  the  attack  azimuth  and  elevation 
angles. 

Step  3 


Compute  the  direction  cosines  of  the  rays  perpendicular  to  the  grid 
plane  and  directed  toward  the  target  geometry. 

Step  4 

Compute  the  row  and  column  number  of  the  current  grid  cell  from 
which  a  ray  is  to  be  fired  through  the  target  geometry. 

Step  5 

Compute  the  coordinates  of  the  current  grid  cell  with  respect  to 
the  center  of  the  grid  plane. 

Step  6 


Test  to  determine  if  ray  or  shotline  is  to  be  fired  from  the  center 
of  the  grid  cell  from  a  random  point  within  the  cell  and  compute  the 
coordinates  of  the  origin  accordingly. 
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Step  7 

Transform  the  origin  of  the  shotline  coordinates  into  the  coordinate 
system  of  the  target  and  shift  the  origin  if  the  input  specified  a  shift. 

Step  8 

Call  Subroutine  TROPIC  to  generate  random  direction  cosines.  The 
ray  origin  is  then  moved  by  a  very  small  amount  in  a  random  direction. 

Step  9 

Back  out  the  origin  of  the  ray  from  the  grid  plane  within  the  target 
to  an  effective  attack  plane  from  where  the  ray  will  be  fired  toward  the 

target. 

Step  10 

If  the  origin  of  the  ray  is  now  below  the  defined  ground  plane,  the 
ray  is  not  fired  for  the  current  cell.  If  above  ground,  the  starting 
coordinates  and  direction  of  the  ray  are  saved  for  later  reference. 

Step  11 

Call  Subroutine  TRACK  to  coordinate  all  the  processing  for  the  ray 
until  it  emerges  from  the  far  side  of  the  vehicle,  and  to  provide  the 
calculated  output  for  the  ray.  Control  will  not  return  to  Subroutine 
GRID  until  calculations  and  outputs  of  results  are  complete  for  the 
given  grid  cell. 

Step  12 

Test  to  determine  if  all  grid  plane  cells  are  to  be  processed  or  if 
a  random  number  is  to  be  skipped  after  each  cell  is  processed. 

Step  13 

Increment  to  the  next  sequential  cell  to  generate  and  process  more 
cell  data.  If  all  cells  have  been  processed,  return  control  to  the  MAIN 

program. 
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FIG.  54.  Subroutine  GRID  Concept  Flowchart 
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RAY  TRACKING  (SUBROUTINE  TRACK) 

Subroutine  TRACK  has  the  function  of  accepting  grid  coordinates  from  Sub¬ 
routine  GRID  and  initializing  the  "firing"  of  a  ray.  It  follows  the  ray 
through  all  points  of  contact  and  outputs  cell  identification  data  and  the 
intersect  data  for  each  ray  for  subsequent  use  in  vulnerability  analysis 
studies. 

The  following  description  is  an  outline  of  the  purpose  and  flow  of  Sub¬ 
routine  TRACK.  The  following  steps  that  describe  Subroutine  TRACK  follow  the 
steps  of  the  conceptual  flowchart  of  Figure  55. 

Step  1 

Initialize  subroutine  constants,  the  starting  region  of  the  ray,  the 
number  of  intersections,  the  number  of  components  hit,  the  number  of 
spaces  counter,  and  the  target,  interior  volume,  armor,  and  skirt  flags. 
Also  initialize  to  zero  the  surface  number-body  number-next  region  number 
array  and  the  line-of-sight  distance  from  contact  to  contact  array. 

Step  2 

Call  Subroutine  G1  to  find  the  distance  to  the  next  region,  the 
number  of  the  next  region,  and  the  new  position  of  the  point  along  the 
ray. 

Step  3 

If  the  region  number  returned  by  Subroutine  G1  is  not  negative  (an 
error  if  negative  and  control  is  returned  to  Subroutine  GRID),  the  line- 
of-sight  distance  to  the  new  point  and  the  surface  number,  the  body 
number,  and  the  next  region  number  are  stored. 

Step  4 

Test  to  determine  if  the  new  intersect  occurs  at  an  RPP  boundary, 
which  means  that  the  end  of  the  ray  has  been  reached.  If  the  end  of  the 
ray,  branch  to  output  the  intersect  data  of  the  ray. 

Step  5 

Test  to  determine  if  the  present  intersect  is  the  first  along  the 
ray  if  the  end  of  the  ray  has  not  been  reached.  If  not  the  first  inter¬ 
sect,  branch  around  the  computations  involved  for  the  first  intersect. 

Step  6 

If  the  first  intersect  along  the  ray,  compute  the  distance  along 
the  ray  path  from  the  first  intersect  to  the  original  point  on  the  grid 
plane  within  the  target. 
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Step  7 

If  the  intersect  is  not  the  first  along  the  ray,  test  for  special 
material  in  the  region  just  traversed  and  update  the  hit  counter  and  set 
the  space  flag  and  ident  flags  accordingly.  If  the  maximum  of  the  stor¬ 
age  arrays  have  not  yet  been  reached,  branch  to  compute  the  data  for  the 
next  intersect- 

Step  8 

When  the  end  of  the  ray  has  been  reached  and  there  have  been  inter¬ 
sects  along  the  ray,  the  distance  from  the  final  intersect  to  the  original 
point  on  the  grid  plane  within  the  target  is  computed* 

Step  9 

Output  cell  identification  data  for  the  first  line  of  output  for 
the  given  ray.  The  cell  ID  data  consists  of  the  cell  number  reference, 
the  distances  to  the  center  grid  plane  from  the  initial  and  final  inter¬ 
sects,  the  distance  to  the  ray  point  from  the  grid  plane  counter,  the 
number  of  intersects,  and  the  space  and  ident  flags. 

Step  10 

Call  Subroutine  CALC  to  compute  cell  intersection  data  for  the  first 
half  of  line  of  output.  Subroutine  CALC  will  compute,  for  each  intersect, 
the  region  identification,  line-of-sight  distance,  surface  intersect 
obliquity  angle,  normal  distance  through  region,  type  of  space  following 
present  region,  and  the  line-of-sight  distance  through  the  space. 

Step  11 

Test  to  determine  if  the  data  for  the  last  intersect  has  been  com¬ 
puted,  If  it  has,  set  variables  to  zero  for  second  half  of  line  of  out¬ 
put  and  branch  around  the  computation  of  data  for  the  second  half  line 
of  output. 

Step  12 

Call  Subroutine  CALC  to  compute  information  on  the  next  intersect 
for  the  second  half  of  the  present  line  of  data.  Data  returned  by  Sub¬ 
routine  CALC  is  identical  to  that  of  Step  10. 

Step  13 

Update  the  number  of  spaces  hit  and  the  number  of  components  hit 
counters,  and  output  the  line  of  ray  intersect  data  (two  components). 
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Step  14 

Test  to  determine  if  more  ray  intersect  data  is  to  be  computed  and 
output.  If  there  Is,  branch  to  process  data  for  the  next  line  of  output. 
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NORMAL  AND  ANGLE  OF  OBLIQUITY  CALCULATIONS  (SUBROUTINE  CALC) 

Subroutine  CALC  is  called  by  Subroutine  TRACK  to  compute  the  normal 
distance  and  the  angle  of  obliquity  for  each  region  that  the  ray  passes  through. 
Subroutine  TRACK  calls  Subroutine  CALC  to  perform  these  calculations  after  the 
ray  has  passed  through  all  of  the  target  geometry.  Subroutine  CALC  also  assigns 
a  9,  indicating  termination  of  the  ray,  to  the  space  following  the  RPP  contain¬ 
ing  the  target  geometry* 

The  following  description  is  an  outline  of  the  purpose  and  flow  of  the 
MAIN  program.  The  steps  that  describe  the  program  follow  the  steps  of  the  con¬ 
ceptual  flowchart  of  Figure  56. 

Step  1 

Retrieve  the  surface  number,  body  number,  and  the  following  region 

for  the  present  intersect  from  the  array  of  intersect  data  compiled  bv 

Subroutine  TRACK. 

Step  2 


Retrieve  the  line-of-sight  distance  through  the  region  following  the 
intersect  and  update  the  contact  point  coordinates  to  the  present  inter* 
sect  position.  The  travel  distance  of  the  ray  is  updated  by  adding  the 
distance  through  the  region  following  the  present  intersect. 

Step  3 

Retrieve  the  body  type  and  the  location  of  other  descriptive  body 
data  for  the  body  where  the  present  intersect  occurs. 

Step  4 

Test  the  validity  of  the  body  type  and  branch  *  according  to  the  body 
type  of  the  intersect  being  considered,  to  find  the  direction  cosines  of 
the  normal  at  the  intersect  (into  the  body  for  an  entry  intersect  and 
away  from  the  body  for  an  exit  intersect). 

Step  5 


Compute  the  angle  between  the  normal  at  the  intersect  and  the  direc¬ 
tion  of  the  ray. 

Step  6 

Call  Subroutine  G1  to  compute  the  normal  distance  through  the  region 
following  the  intersect.  s 
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Step  7 

Retrieve  the  space  code  of  the  region  following  the  next  intersect 
and  the  Item  or  component  code  of  the  region  following  the  present  inter¬ 
sect. 

Step  3 

Test  to  determine  if  the  region  following  the  next  intersect  has  a 
special  identification  (other  than  space).  If  so,  return  control  to 
Subroutine  TRACK. 

Step  9 

Test  to  determine  if  the  end  of  the  ray  has  been  reached  by  testing 
the  next  intersect  to  determine  if  it  is  an  intersect  with  the  enclosing 
RPP.  If  it  is,  flags  are  set  to  indicate  the  end  of  the  ray  and  the 
program  returns  control  to  Subroutine  TRACK. 

Step  10 

Retrieve  the  distance  through  the  space  of  the  region  following  the 
present  intersect  and  update  the  line-of-sight  distance  traveled  by  the 
ray  before  returning  to  Subroutine  TRACK,  if  the  next  intersect  is  not  an 
RPP  intersect. 


141 


TN  4565-3-71  Vol  II 


FIG,  56.  Subroutine  CALC  Concept  Flowchart 


142 


TN  4565-3-71  Vol  II 


RAY  INTERSECTIONS  (SUBROUTINE  Gl) 

Subroutine  Gl  is  the  main  ray-tracing  routine  of  the  MAGIC  program.  It 
performs  the  following  function:  Given  a  ray  in  a  region  at  a  specified  loca¬ 
tion  with  direction  cosines,  find  the  distance  to  the  next  region  and  the  num¬ 
ber  of  the  next  region. 

The  following  description  is  an  outline  of  the  purpose  and  flow  of  Sub¬ 
routine  Gl.  The  following  steps  that  describe  Subroutine  Gl  follow  the  steps 
of  the  conceptual  flowchart  of  Figure  57. 

Step  1 

Initialize  the  variable  that  accumulates  the  total  distance  to  the 
next  region  to  zero,  and  initialize  a  variable  indicator  for  line— of 
sight  distance  or  for  normal  distance  through  the  region. 

Step  2 

Test  to  determine  if  a  new  ray  is  to  be  processed  or  if  the  subrou¬ 
tine  has  been  called  to  continue  tracing  a  ray  that  has  already  been 
started. 

Step  3 

If  a  new  ray  is  to  be  processed,  initialize  to  zero  the  cumulative 
distance  variable,  and  initialize  the  temporary  working  storage  area  for 
Subroutine  Gl  if  it  has  previously  been  filled. 

Step  4 

A  point  on  the  ray  is  stepped  through  the  region  by  finding  the  next 
closest  intersect  along  the  ray  until  a  new  region  is  entered.  To  accom¬ 
plish  this,  Subroutine  Gl  investigates  all  of  the  bodies  in  the  region 
that  the  ray  might  strike.  Then,  for  each  body  in  the  region  description, 
the  distances  from  the  origin  to  the  point  where  the  ray  enters  the  body 
(RIN)  and  to  the  point  where  the  ray  leaves  the  body  (ROUT)  are  computed. 
Twelve  different  body  routines  are  available  to  Gl  for  this  purpose  for 
12  possible  body  types  that  could  be  in  the  region.  Each  intersect 
distance  is  compared  until  the  smallest  intersect  distance  is  found  that 
is  greater  than  the  distance  already  traveled  by  the  point  on  the  ray. 

The  point  on  the  ray  is  then  advanced  to  the  intersect,  recording  the 
body  where  the  intersect  occurs. 

Step  5 

Retrieve  from  the  body  data  in  memory  all  of  the  possible  regions 
that  the  ray  could  be  entering.  If  the  intersect  occurs  as  an  entry  on 
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the  body,  the  entering  region  table  of  that  body  is  retrieved.  If  the 
intersect  occurs  as  an  exit  on  the  body,  the  leaving  region  table  of  that 
body  is  retrieved. 

Step  6 

Test  to  determine  if  there  are  regions  in  the  region  table  for  the 

body. 

Step  7 

Each  region  from  the  region  table  is  in  turn  passed  to  Subroutine 
WOWI.  Subroutine  WOWI  tests  each  region  passed  to  it  until  the  region 
that  the  ray  is  in  is  located. 

Step  8 

If  there  are  no  regions  in  the  region  table,  the  intersect  is 
located  at  a  leaving  surface  of  a  rectangular  parallelepiped.  Therefore, 
Subroutine  RPP2  is  called  to  identify  the  abutting  rectangular  parallele¬ 
piped  in  the  path  of  the  ray. 

Step  9 

Retrieve  from  the  body  data  in  memory  all  of  the  possible  regions 
that  the  ray  could  be  entering  for  the  new  RPP. 

Step  10 

Each  region  from  the  entering  region  table  is  in  turn  passed  to 
Subroutine  WOWI.  Subroutine  WOWI  tests  each  region  passed  to  it  until 
the  correct  region  that  the  ray  is  in  is  located. 

Step  11 

Test  the  region  of  the  intersect  to  determine  if  it  is  a  different 
region.  If  a  different  region,  and  the  subroutine  was  not  called  by 
either  Subroutine  VOLUM  or  TESTG,  another  test  is  made  between  the  space 
codes  (interior  or  exterior  volume)  and  between  the  component  codes  of 
the  material  of  the  two  regions.  If  the  space  and  material  of  the  two 
regions  are  different,  the  subroutine  returns  control  to  Subroutine 
TRACK.  If  the  space  and  material  of  the  two  regions  are  identical, 
then  control  is  returned  to  the  beginning  of  the  subroutine  to  find  the 
next  intersect,  etc. 
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Ft<7.  57.  Subroutine  f'J  Concept  Flowchart 
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REGION  LOCATION  (SUBROUTINE  WOWI) 

Subroutine  WOWI  is,  in  essence,  the  heart  of  the  combinatorial  geometry 
method.  It  performs  the  following  function:  Given  a  region  number  by  Sub¬ 
routine  Gl,  Subroutine  WOWI  determines  if  the  present  position  of  a  specified 
point  along  the  ray  is  within  that  region. 

The  following  description  is  an  outline  of  the  purpose  and  flow  of  Sub¬ 
routine  WOWI.  The  following  steps  that  describe  Subroutine  WOWI  follow  the 
steps  of  the  conceptual  flowchart  of  Figure  58. 

Step  1 

Retrieve  the  number  of  solids  that  are  in  the  region  description. 
Then  retrieve  the  first  solid,  its  operator,  and  its  body  type. 

Step  2 

Retrieve  or  calculate  the  RIN  and  ROUT  intersect  distances  of  the 
solid  measured  from  the  origin  of  the  ray. 

s,tep  3 

Test  the  operator  of  the  solid  to  determine  its  relationship  within 
the  region  where  it  is  located. 

Step  4 

Test  the  solid  with  a  (+)  operator  to  determine  if  the  point  along 

the  ray  is  between  the  RIN  and  ROUT  of  the  solid,  which  is  required  for 

a  valid  test  of  a  (+)  operator. 

Step  5 

Test  the  solid  with  a  (-)  operator  to  determine  if  the  point  along 

the  ray  misses  the  solid  or  is  on  either  side  of  the  solid,  which  is 

required  for  a  valid  test  of  a  (-)  operator. 

Step  6 


If  the  test  of  the  solid  with  either  a  (+)  or  (— )  operator  was 
valid,  then  a  further  test  is  made  to  determine  if  there  are  more  solids 
in  the  region,  since  a  region  description  with  no  (OR)  solid  operators 
is  satisfied  only  if  every  (+)  and  (-)  operator  in  the  region  description 
is  valid. 
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Step  7 

Retrieve  the  body  data  for  the  next  solid  i£  there  are  more  solids 
in  region  description  and  if  all  (+)  and  (- )  operators  of  the  previous 
solids  in  the  region  description  have  been  valid, 

Step  8 

Test  next  solid  retrieved  for  an  (OR)  operator,  since  a  region 
description  containing  one  or  more  (OR)  combinations  of  solids  is  satis¬ 
fied  if  any  one  of  the  (OR)  combinations  is  valid. 

Step  9 

If  the  region  description  is  satisfied  because  all  (+)  and  (-) 
operators  of  the  solids  in  the  region  description  are  valid,  or  all  of 
the  (+)  and  (-)  operators  in  an  (OR)  combination  of  the  region  description 
are  valid,  the  point  on  the  ray  is  within  the  given  region  and  control 
is  returned  to  Subroutine  Gl. 

Step  IQ 

If  a  (+)  or  (-)  operator  test  was  not  valid,  test  to  determine  if 
the  first  operator  was  an  (OR)  operator* 


Step  11 

Test  to  determine  if  there  are  any  more  solids  in  the  region  descrip¬ 
tion,  If  not,  there  are  no  other  (OR)  combinations  in  the  region  descrip¬ 
tion. 

Step  12 

If  there  are  more  solids  in  the  region  description, retrieve  the  next 
solid  and  its  operator . 

Step  13 

The  ray  does  not  enter  the  region  passed  to  Subroutine  WOW I  from  Sub¬ 
routine  G2,  Therefore,  return  control  to  Subroutine  Gl  to  find  the  next 
region  to  be  tested  by  Subroutine  WOWI , 

Step  14 

Test  to  determine  if  next  solid1 s  operator  is  an  (OR)  operator. 

This  test  is  performed  in  order  to  find  the  next  (OR)  combination  of 
solids  in  the  region,  since  a  region  description  containing  one  or  more 
(OR)  combinations  is  satisfied  if  any  one  of  the  (OR)  combinations  is 
valid . 
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Step  15 

If  another  (OR)  combination  of  solids  in  the  region  description  is 
found,  then  control  is  transferred  to  the  beginning  of  the  subroutine  to 
determine  if  this  next  (OR)  combination  of  bodies  in  the  region  descrip¬ 
tion  is  valid. 
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^IR.  58.  Subroutine  n’QWL  Concept  Flowchart 
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SYMBOLS  AND  ABBREVIATIONS 

The  symbols  and  abbreviations  appearing  in  the  Mathematical  Model 
Section  are  defined  in  the  following  tables. 
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Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 
Mode1 

Definition 

Units 

A 

BB 

Intermediate  term  used  in  ELL 
section  to  represent 

(dJ  -  Dg  -  C2)/  -2C 

ND* 

A 

C0EF(1) 

4 

Coefficient  of  S  of  quartic 
equation 

AS4  +  BS3  +  CS2  -  DS  4-  E  =  0 

ND 

A 

— 

2 

Coefficient  of  X  of  biquadratic 
equation  of  Subroutine  QRTIC 

ND 

A 

— 

Intermediate  term  for  solving  r ^ 
of  TOR 

Inches 

A. 

X 

ASQ(3) 

Square  of  one  of  length  vectors 
of  RAW 

Inches^ 

A. 

l 

AA (1,1) 

X  coefficient  of  equation  for  ith 
face  of  ARB 

ND 

a 

C(l) 

3 

Coefficient  of  X  of  quartic 
equation 

ND 

a 

A 

l 

Length  of  serai^ioajor  axis  of 
ellipse,  =  A  *  A 

Inches 

a 

— 

Distance  between  intersect  pro¬ 
jected  onto  H  vector  and  end  of 
semi- major  axis  of  REC 

Inches 

A 

A<3) 

Semi-major  axis  of  REC 

Inches 

A 

AA(3) 

Semi-major  axis  unit  vector  of 
base  ellipse  of  TEC 

ND 

B 

AA 

Intermediate  term  used  in  ELL 
section  to  represent 

{2D1  *  WB  -  2D2  *  WB)/-2C 

ND 

B 

COEF (2) 

3 

Coefficient  of  S  of  quartic 
equation 

AS4  +  BS3  +  CS2  +  DS  +  E  =  0 

ND 

*Non-dimensional 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 
- Model 

1 - 

Definition 

0 

Coefficient  of  X  of  biquadratic 
equation  of  Subroutine  QRTIC 

B 

— 

Intermediate  term  for  solving  r„ 
of  TOR  2 

B 

B 

Coefficient  of  2S  term  of  quad¬ 
ratic  equation  S^+2BS+C=0  for 
solving  for  intersect  distances 
of  sphere 

i 

AA(I, 2) 

Y  coefficient  of  equation  for  ith 
face  of  ARB 

b 

C  (2) 

2 

Coefficient  of  X  of  quartic 
equation 

b 

Distance  between  intersect  pro* 
jected  onto  H  vector  and  end  of 
semi-minor  axis  of  REC 

b 

B 

Length  of  semi-minor  axis  of 

ellipse,  b"  -  B  *  B 

B 

BB(3) 

Semi-minor  axis  unit  vector  of 
base  ellipse  of  TEC 

B 

B(3) 

Semi-minor  axis  of  REC 

C 

C 

Distance  between  center  of  ellipse: 
and  a  foci  of  REC 

C 

C 

Length  of  ellipsoid  major  axis 

c 

C 

Constant  term  of  quadratic  equa¬ 
tion  of  sphere  S^+2BS+C=0  for 
solving  intersect  distances; 
equal  to  (DX2  -  R2) 

c 

Constant  term  of  biquadratic 
equation  of  Subroutine  QRTIC 

Units 


m 


Inches 


Inches 


ND 

ND 

Inches 

Inches 

ND 

Inches 

Inches 

Inches 

Inches^ 


ND 
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Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 
Mndgl 

Definition 

Units 

C 

COEF (3) 

2 

Coefficient  of  S  of  quartic  equa- 
tion  AS4  +  BS3  +  CS2  +  DS  +  E  =  0 

ND 

c. 

1 

AA  ( 1 , 3) 

Z  coefficient  of  equation  for  1th 
face  of  ARB 

NB 

C1 

* - 

Intermediate  term  for  solving 
coefficient  of  2S  of  quadratic 
equation  for  TRC 

Inches 

C2 

RBRTVP 

Intermediate  term  for  solving 
constant  term  of  quadratic  equa¬ 
tion  for  TRC 

Inches 

C 

C(3) 

Coefficient  of  X  of  quartic 
equation 

ND 

c 

— 

Distances  from  center  point  to 
focus  of  ellipse 

Inches 

c 

ASTER(IV) 

Center  coordinates  of  TOR 

Inches 

c 

TEMP (3) 

Coordinates  of  center  point 

Inches 

CP 

WA(3) 

Coordinates  of  vector  tangent  at 

I  intersect  point  on  surface  of 

TRC  or  TEC 

Inches 

cv 

TEM1 (3) 

Vector  from  center  of  torus  to 
center  of  circular  plane  of 
intersect 

Inches 

D 

CELSIZ 

Dimensions  of  grid  cell 

Inches 

D 

C0EF(4) 

Coefficient  of  S  of  quartic  equa- 

tion  AS  +BS  +CS  +DS+E=0 

ND 

D 

TEM 

Distance  from  vertex_V  to  inter¬ 
sect  projected  onto  H  vector  of 
given  body 

Inches 

Di 

AA(I ,4) 

Constant  term  of  equation  for  ith 
face  of  ARB 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 
- Model 

Definition 

Units 

d 

C(4) 

Constant  term  of  quartic  equation 

ND 

DX 

DX,  DY,  DZ 

Vector  from  vertex  V  to  origin  of 
ray  XB 

Inches 

»1 

D1X,  D1Y, 

D1Z 

x,  y,  and  z  coordinates  of  XB 
“  (FOCI  A)  in  ELL  section 

Inches 

D2X,  D2Y, 

D2Z 

y,  and  z  coordinates  of  XB 
-  (FOCI  B)  in  ELL  section 

Inches 

d 

— 

Direction  cosines  of  of  TOR 

ND 

E 

TERM 

Constant  term  of  quartic  equation 
AS4  +  BS3  +  CS2  +  DS  +  E  =  0 

ND 

E 

— 

Vector  from  vertex  to  point  of 
contact  with  side  of  RCC 

Inches 

f 

Part  of  linear  expression  ex  +  f 
used  in  solving  quartic  equation 

ND 

F 

a 

FOG IA(3) 

xt  y,  and  z  coordinates  of  one  of  j 
ellipsoid  1 s  foci 

Inches 

?b 

FOCIB (3) 

x,  y,  and  z  coordinates  of  one  of 
ellipsoid's  foci 

Inches 

fI 

FI 

Intersect  distance  projected  onto 
semi-major  axis  of  TEC 

Inches 

F2 

F2 

Intersect  distance  projected  onto 
semi-minor  axis  of  TEC 

Inches 

FI 

TEM(3) 

Coordinates  of  a  foci  of  REC 

Inches 

F2 

TEM1(3) 

Coordinates  of  a  foci  of  REC 

Inches 

Gi 

G(3) 

Dot  product  of  direction  cosines 
and  one  of  length  vectors  of  RAW 

Inches 

H 

H 

Horizontal  distance  from  center 
grid  plane  to  random  point 
within  grid  cell 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Equivalent  in 
Simulation 
Mnri  p  1 

Definition 

Units 

HREF 

Horizontal  distance  from  center  of 
grid  plane  to  center  of  specified 
grid  cell 

Inches 

H 

Horizontal  distance  from  center 
of  grid  plane  to  lower  left 
corner  of  specified  grid  cell 

Inches 

Ratio  on  H  vector  of  height  of  hit 
on  cylindrical  surface  of  RCC 

ND 

H(3) 

x,  y ,  and  z  coordinates  of  height 
vector  of  given  body 

Inches 

ASTER (JA) 

x,  y,  and  z  coordinates  of  three 
mutually  perpendicular  length 
vectors  of  BOX  or  RAW 

Inches 

— 

Vector  to  point  of  intersect  of 
intersection  ellipse  with  H 
vector  of  TEC 

Inches 

II 

Row  number  of  grid  plane 

ND 

IH 

Random  number  for  computing  ran¬ 
dom  horizontal  point  in  given  cell 

ND 

IV 

Random  number  for  computing  ran¬ 
dom  vertical  point  within  given 
cell 

ND 

J 

Column  number  of  grid  plane 

ND 

KK 

Specific  number  of  grid  cell 

ND 

TEM(3) 

Coordinates  of  point  on  line  from 
foci  through  intersect  at  dis¬ 
tance  equal  to  twice  length  of 
semi-major  axis  of  REC 

Inches 

A 

Length  of  semi-major  axis  of 
intersection  ellipse  of  TEC 

Inches 

— 

Center  of  specified  grid  cell 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 
- Model 

Definition 

Units 

M 

B 

Length  of  semi-minor  axis  of 
intersection  ellipse  of  TEC 

Inches 

m 

- - 

Vector  from  midpoint  of  cross 
section  to  intersect  of  TOR 

Inches 

N 

NEND 

Total  number  of  cells  in  grid 
plane 

ND 

N 

X 

NX 

Number  of  horizontal  cells  in 
grid  plane 

1  ND 

N 

y 

NY 

Number  of  vertical  cells  in  grid 
plane 

ND 

n 

TLK 

Length  of  normal  to  slanted  side 
of  RAW 

Inches 

N 

HN(3) 

Normal  unit  vector  of  base 
ellipse  of  TEC 

ND 

N 

WB(3) 

Direction  cosines  of  vector  at 
intersect  of  body 

ND 

N 

— 

Normal  vector  to  slanted  surface 
of  RAW 

Inches 

N 

ORMAL (3,1) 

Normal  unit  vector  to  triangle 
surface  in  ARS 

ND 

n 

XN  (3) 

Unit  normal  vector  of  TOR 

ND 

P 

Additional  length  of  semi-major 
axis  of  intersect  ellipse  that  is 
greater  than  semi-major  axis  of 
top  ellipse  of  REC 

Inches 

pv(3)  Dot  product  of  vector  (XB  -  V)  ,  Inches2 

and  one  of  length  vectors  of  RAW 


P1-P8 


Eight  points  which  describe  the 
ARB 


Inches 
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LIST  OF  SYMBOLS  AMD  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Symbol  or 
Abbreviation 

tEEHl  :i  '  ?'  ‘  'r  i 

Definition 

Units 

Q 

XNOS 

+1.0  or  -1.0  multiplier  for 
directing  normal  vector  into 
(entry)  or  out  of  (exit)  body  at 
intersect 

ND 

Q 

— 

Intersect  on  quadratic  surface 
of  TRC  projected  onto  H  vector 

Inches 

R 

R 

Radius  of  given  body 

Inches 

rb 

RB 

Radius  of  base  plane  of  TRC 

Inches 

rt 

RT 

Radius  of  top  plane  of  TRC 

Inches 

RIN 

RIN 

Distance  from  ray  origin  to 
entry  intersect  of  given  body 

Inches 

ROUT 

ROUT 

Distance  from  ray  origin  to  exit 
intersect  of  given  body 

Inches 

R1 

Rl 

Length  of  semi-major  axis  of  base 
ellipse  of  TEC 

Inches 

R2 

R2 

Length  of  semi-minor  axis  of 
base  ellipse  of  TEC 

Inches 

R3 

R3 

Length  of  semi-major  axis  of  top 
ellipse  of  TEC 

Inches 

R4 

R4 

Length  of  semi-minor  axis  of  top 
ellipse  of  TEC 

Inches 

ri 

Rl 

Major  radius  of  TOR 

Inches 

r2 

R2 

Radius  of  circular  cross  section 
of  TOR 

Inches 

S 

DIST 

Scalar  value  of  the  distance  from 
given  ray  point  to  next  intersect 

Inches 

sv 

RIN,  ROUT 

Distance  to_intersect  of  side 
containing  V  of  BOX  or  RAW 

Inches 
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LIST  OF  SYMBOLS  AMD  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 
_ Mode! 

Definition 

Units 

SV+H 

RIN,  ROUT 

Distance  to  Intersect  of  one  of 
aides  opposite  V  of  BOX  or  RAW 

Inches 

T 

Intermediate  variable  for  com* 
puting  semi-major  axis  of  inter- 
sect  ellipse  of  TEC 

Inches 

T 

TEM(3) 

Coordinates  of  projected  point  of 
TRC  or  TEC 

Inches 

U 

ARS  point  of  given  triangle 

Inches 

V 

V 

Vertical  distance  from  center  of 
grid  plane  to  random  point  within 
grid  cell 

Inches 

V* 

V 

Vertical  distance  from  center  of 
grid  plane  to  lower  left  corner 
!  of  a  specified  cell 

Inches 

v  * 
ref 

VREF 

Vertical  distance  from  center  of 
grid  plane  to  center  of  specified 
grid  cell 

Inches 

V 

V(3) 

ARS  point  of  given  triangle 

Inches 

V 

V  (3) 

xt  yt  and  z  coordinates  of  vertex 
of  given  body 

Inches 

VPA 

Do  t  pr oduc t  of  semi-ma j  or  axis 
vector  and  vector  (V  -  XB)  of  REC 

Inches 

VPB 

Dot  product  of  semi -minor  axis 
vector  and  vector  (V  -  XB)  of  REC  ; 

Inches 

VP 

H 

VPH 

Dot  product  of  height  vector  and 
vector  (V  *  XB)  of  REC 

Inches 

VV 

— 

Vertex  of  intersection  ellipse  of 
TEC 

Inches 

w  ,  W  ,  W 
x9  y 9  z 

WB(3) 

Direction  cosines  of  ray 

m 

W 

W  (3) 

ARS  point  of  given  triangle 

Inches 
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Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 
Mnde] 

Definition 

Units 

WBA 

Dot  product  of  semi-major  axis 
and  direction  cosines  of  ray  for 
RRC 

Inches 

WBB 

Dot  product  of  semi-minor  axis 
and  direction  cosines  of  ray  for 
REC 

Inches 

"h 

WH 

Dot  product  of  height  vector  and 
direction  cosines  of  ray  for  REC 

Inches 

WB 

WB  (3) 

Direction  cosines  of  ray 

ND 

m 

WI<3) 

Direction  cosines  of  H  vector 

ND 

WN 

WN  (3) 

Direction  cosines  of  vector  from 

V  to  X  of  given  body 

ND 

WS 

WS(3) 

Original  direction  cosines  of  ray 
from  attack  plane 

ND 

WX 

WN(3) 

Direction  cosines  from  focus  to 
intersect  on  ellipse  of  REC 

ND 

X 

— 

Intersect  point  on  given  body 

Inches 

,  XB 

XB 

Starting  point  of  ray 

Inches 

XH 

XP  (3) 

Coordinates  of  intersect  point 
projected  onto  H  vector  of  given 
body 

Inches 

XI 

XRY 

Intersect  coordinates  on  a  given 
plane  of  RPP 

Inches 

XP 

S 

Intersect  point  of  given  body 

Inches 

XP 

Rl,  R2, 

R3,  R4 

Point  of  intersect  of  TOR 

Inches 

®i 

XS(I) 

Boundary  coordinate  for  a  given 
plane 

Inches 

11 

Rl,  R2, 

CP,  CM 

Vector  to  entry  intersect  of  body 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Simulation 

- Mnrfgl _ 

Definition 

Units 

CM 

IX 

Rl,  R2 

CP,  CM 

Vector  to  exit  intersect  of  body 

Inches 

x» 

Rl,  R2 

CM,  CP 

Intersect  point  of  REC  and  trans- 
formed  ray 

Inches 

X 

min 

XS(1) 

Minimum  X  boundary  coordinate  of 
RPP 

Inches 

X 

max 

XS(2) 

Maximum  X  boundary  coordinate  of 
RPP 

Inches 

X 

Value  of  X  coordinate  on  surface 
of  ellipse  for  solving  intersect 
with  REC 

Inches 

X  ,  V  t  z 
o’  Jo*  o 

XP(3) 

Fixed  point  on  ray  shotline 

Inches 

Y  t 

mm 

XS(3) 

Minimum  y  boundary  coordinate  of 
RPP 

Inches 

Y 

max 

xs  (4) 

Maximum  y  boundary  coordinate  of 
RPP 

Inches 

y 

Value  of  y  coordinate  on  surface 
of  ellipse  for  solving  intersect 
with  REC 

Inches 

z  . 

mm 

XS(5) 

Minimum  z  boundary  coordinate  of 
RPP 

Inches 

Z 

max 

XS  (6) 

Maximum  z  boundary  coordinate  of 
RPP 

Inches 

a 

Distance  along  ray  from  plane  of 
base  ellipse  to  plane  of  top 
ellipse  of  TEC 

Inches 

a 

Distance  along  ray  from  start  of 
ray  to  plane  of  base  ellipse  of 

TEC 

Inches 

Y 

Ratio  on  H  vector  of  height  of  hit 
on  quadratic  surface  of  TRC  and 

TEC 

m 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(MATHEMATICAL  MODEL) 


Definition  Units 

Coefficient  of  2S  from  quadratic  Inches 

equation  of  body  for  solving 
distance  S  to  Intersect  of 
quadratic  surface 


Coefficient  of  2S  from  quadratic 
equation  tS^  -  2A1S  +  p 1  *  0  for 
IRC 

Coefficient  of  from  quadratic 
equation  of  body  for  solving 
distance  S  to  intersect  of 
quadratic  surface 

Ratio  of  distance  between  base 
ellipse  and  intersect  ellipse  to 
distance  between  two  planar  sur¬ 
faces  of  TEC 

Constant  term  from  quadratic 
equation  of  body  for  solving 
distance  S  to  intersect  of 
quadratic  surface 

Value  of  constant  term  from  quad¬ 
ratic  equation  tS^  -  2A’S  +  u 1  —  0 
for  TRC 


161 


TN  4565-3-71  Vol  II 


SECTION  III 
SIMULATION  MODEL 


This  section  discusses  the  manner  in  which  calculations  are  performed 
within  the  computer  routines.  The  main  routine  controls  the  sequence  of 
computations,  making  frequent  use  of  subroutines  for  specific  calculations. 
The  program  structure  and  subroutines'  relationships  are  illustrated  in 
Figure  59. 

In  the  paragraphs  following,  the  individual  FORTRAN  statements  that 
make  up  the  simulation  model  include  references  to  Section  II,  Mathematical 
Model.  These  references  consist  primarily  of  the  boxed  equation  that  gave 
rise  to  the  FORTRAN  statement,  but  not  its  derivation.  The  same  boxed 
equation  can  be  found  in  the  Mathematical  Model  with  its  derivation.  The 
number  enclosed  in  parentheses  associated  with  each  equation  is  its  identi¬ 
fying  number  in  Section  II.  In  addition,  comment  statements  appearing  in 
the  source  listing  are  included  in  the  simulation  model, 

COMMON  and  DIMENSION  FORTRAN  statements,  whose  purpose  is  to  set 
aside  arrays  to  store  values  of  the  variables  appearing  in  the  statements, 
are  in  several  routines.  The  definitions  of  the  variable  names,  as  well 
as  the  variables  in  the  subroutine  call  statements,  are  provided  in  the 
list  of  symbols  and  abbreviations  at  the  end  of  this  section. 
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CROSS  I  I  DOT  I  I  UNIT 


|  [aRb|  |RCC|  |  R£C|  |  TEC  DOT 

|  [TRC1  lSPHl  1^1  | 


TOR  MH  QRTIC 


FIG.  59.  Subroutine  Relationships 
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PROGRAM  MAGIC  -  MAIN  ROUTINE 


The  purpose  of  the  MAIN  routine  of  the  MAGIC  program 
flow  of  the  MAGIC  program,  calling  on  various  subprograms 
functions  * 


is  to  direct  the  entire 
to  perform  specific 


There  are  essentially  two  phases  to  the  MAGIC  program:  geometry  input  proc¬ 
essing  and  main  ray-tracing  control.  The  MAIN  routine  initializes  various  program 
constants  and  parameters  and  enters  from  card  input  the  program  control  parameters. 
The  target  geometry  is  entered  by  Subroutine  GENI,  which  enters  and  P^pares  the 
target  geometry  daL  for  the  ray-tracing  phase  of  the  MAGIC  program  If  the 
target  geometry  data  has  already  been  processed  by  a  previous  run,  the  input  tape 
is  entered,  and  Subroutine  GENI  is  therefore  not  called. 


After  the  input  processing  phase,  the  MAIN  program  has  the  option,  based  on 
the  input  control  parameters ,  of  calling  Subroutine  TESTG  to  fire  a  ray  from 
point  to  point  and  of  calling  Subroutine  VOLUM  to  compute  the  volmnes  by  region. 
The  region  identifiers  and  space  code  numbers  are  then  entered  and  stored  into 

the  MASTER-ASTER  array. 

At  this  point,  the  ray-tracing  phase  of  the  program  is  initiated.  A  “td 
is  entered  with  the  number  of  angles  of  attack,  and  Subroutine  GRID  is  called 
perform  the  ray-tracing  control  phase  for  each  aspect  angle.  When  the  ray- 
tracing  phase  of  the  program  is  complete,  the  MAIN  program  has  the  option,  based 
on  the  input  control  parameter,  of  calling  Subroutine  AREA  to  compute  the 
presented  area  by  component  for  each  aspect  angle. 


The  statements 


DIMENSION  a<6> 

dimension  master < 1 0000 ) 


are  used  to  dimension  the  MASTER  array  for  10,000  words  and  to  dimension  six- 
element  array  A  for  input  of  alphameric  region  data. 

The  statements 


SSmmON/JSnTRU/ItSstS1,  IbJySK  ,  UNTLV  .  I V0UUM.  UOT .  lT4PEe.NQ,  I  Yt5 


COMMON/ENGeOM/LEQEO* 

gOMMON/S iZE/NpQ 
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COM*ON/E«fl/IERRo 

common/ranom/IRanoh 


are  used  to  pass  information  into  and  out  of  this  routine  via  the  COMMON 
statements . 


The  statement 


EQUIVALENCE  ‘aster. MASTER) 


is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 


The  statements 


901  FORMAT ( 
.1 

902  FORMAT 

903  FORMAT 

904  FORMAT 

1  10A6/ 

905  FORMAT 

906  FORMAT 

907  FORMAT 
90R  FORMAT 

909  FORMAT 

910  FORMAT 
1 

9lj  FORMAT 
91?  FORMAT 
913  FORMAT 
1  6HL 
91 A  FORMAT 

915  FORMAT 

916  FORMAT 

917  FORMAT 
91 A  FORMAT 
919  FORMAT 
925  FORMAT 
927  FORMAT 
9?8  FORMAT 

929  FORMAT 

930  FORMAT 
999  FORMAT 


M1.32HTHIS  IS  THE  11  APR  69  VERSION  OF  / 

M  «32HThe  BRLESC  HaOIC  PROgRaM  •••*••  ✓/) 

6H  BEGIN  EXECUTION) 

«U0> 

ho*io»»a2hthe  tape  a  used  for  this  run  has  the  title  / 

Ho»10HENTeR  GENl) 

H0.12HLEAVING  GENI) 

h0*38HTERm I NATION  ON  OEONETRy  INPUT  ERROR, 5X. 5HIERR»* 1$) 
Hl»l5MTESTG  IS  CALLE0) 

H0»13HLEAVING  TESTq) 

H1*2AHREG10n  TYPE  OATa  FOLLOWS,  0X»6HL irfo* • 1 1  0^ 

H  fBHREGION.BX.AHCOOEtAX'AHTYPEtS^UHOEScRIPTlON/) 

1 10* 10**6A6> 

6tI10,l9«7X,6A6> 

HO*23HNO  ROOM  fOR  IdENT  T ABLE 1 5X , THLEGEOMb ,17,5V, 

RFO«* 17) 

H0O2HWRITE  TaPE  1  OPTION  IS  SPECIFIED* 

5»10X,10A6> 

H1»11hENTeR  VOlUM) 

Ho« 13MLEAVING  VOLUM) 

H  ,6H  999.9) 

HltllHENO  OF  CaSE»IS> 

Hi,32HNUM  OF  ASPECT  ANGLES  FOR  QRIO  IS* IS) 

ois> 

Hi*32HNUH  OF  ASPECT  ANGLES  FOR  AREA  iStlSI 
H0O1HNUMBER  OF  Gi  ERRORS  ENCOUNTERED,  IS> 

ho*31hnum0er  of  0  itehs  encountered* 15) 

Hq«10HENO  OF  RUN) 
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are  used  to  format  input  data,  output  data,  and  output  messages. 


The  statements 


IRANDm.o 
-RITE  (6*901' 
-RITE  <6«902> 


are  used  to  initialize  variable  IRANDM  to  zero  for  use  by  Function  RAN  for 
generating  random  numbers;  and  to  print  out  the  title  and  version  of  the 
program  and  a  message  that  execution  of  the  MAGIC  program  is  beginning. 


The  statements 


initialize  constants 

c 

H5a2*MS 

l30»2**30 

PINfaj.oESO 

NO*o 

tYES»l 

IERR*0 

LBA$E»l 

KLO0Pa0 

NOQ»10000 


are  used  to  initialize  constants  115  and  130  to  2  and  2  ,  respectively* 
for  use  in  packing  and  unpacking  data.  PINF  is  set  to  an  extremely  large 
number  to  represent  infinity.  Variables  NO  and  IYES  are  set  to  0  and  1, 
respectively,  for  use  in  testing  for  various  options  during  the  MAGIC  program. 
Error  counter  IERR  is  initialized  to  zero.  Variable  LBASE  is  set  to  one  to 
represent  the  first  storage  location  for  data  in  the  MASTER-ASTER  array  and 
is  saved  for  printout  of  major  pointer  values  by  Subroutine  GENI.  KLOOP  is 
initialized  to  zero  and  is  used  internally  to  keep  track  of  the  specific  ray 
being  traced.  The  constant  NDQ  is  set  to  10,000  to  represent  the  word  size 
of  the  MASTER-ASTER  array. 

The  statements 


C*  ENTER  AN0  INITIALIZE  OPTION  PARAMETERS 

C  *£A0  <5,903HRDTP*.I-flTP*.IT£STG.IRAVSK»ICAHDI.lENTLV*IVOLUM 

IP (IRDTP*.NE.0» IR0TP4-ITES 

ir  (i-rtpa.ne.o)  i-rtpamyes 

IP (ITesTG.ne»o> ITcSTO«IT£S 

ip<iraysk,ne.o> IRAYSK-IYES 
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I* (IC*BOI.NC.0> 1C*"0I*ITCS 

ifuentcv.ne.o>  ientiv-iyes 

IF(!VOtUM.NE.O)IVOLUH>IYES 


are  used  to  enter  the  option  data  and  to  test  each  option  for  a  not  zero 
condition.  Each  variable  that  is  not  zero  is  set  to  equal  IYES  (IYES=1)  for 
later  option  testing.  Options  follow: 

IRDTP4  ft  0  Read  target  description  from  input  tape  4  (binary  tape) 

IRDTP4  =  0  Enter  and  process  target  geometry  via  Subroutine  GENI 

IWRPT4  ft  0  Write  target  geometry  description  on  tape  4  (binary  tape) 

after  entering  and  processing  by  Subroutine  GENI 

IWRPT4  =0  Do  not  write  target  description  on  tape  4 

ITESTG  ft  0  Call  Subroutine  TESTG 

ITESTG  =0  Do  not  call  Subroutine  TESTG 

IRAYSK  ft  0  Skip  random  number  of  grid  cells  during  Subroutine  GRID 

IRAYSK  =0  Do  not  skip  random  number  of  grid  cells  during 

Subroutine  GRID 

ICARDI  Not  used 

IENTLV  ft  0  The  region  enter/leave  tables  are  to  be  printed  out 

during  Subroutine  GENI 

IENTLV  =0  Do  not  print  out  enter/leave  tables 
IVOLUM  ft  0  Call  Subroutine  VOLUM 

IVOLUM  =0  Do  not  call  Subroutine  VOLUM 


The  statements 


C 

C3  ENTER  TARGET  GEOMETRY  FROM  INPUT  TaPE  * 

C 

ifurotpa.eq.no>  GOTO  10 

RE*0  1 4 )  LSASE«LEGEOM.nOO» (a$TEH(l> »L"1 »NQQ) ♦LB00Y.LREGn.LPIN 
1  LR0T.LlO»LlRF0.NRPP.N8O0Y«NRMA*tPlNFt IT 
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WHITE  (6»904MITtII  >1"1*10> 
GOTO  zo 


are  used  to  determine  if  the  target  description  is  to  be  entered  from  input 
tape  4.  If  it  is,  the  data  is  entered  from  tape  4,  a  message  is  written  out 
with  the  title  of  tape  4,  and  the  program  branches  around  the  section  for 
ertering  and  processing  the  data  by  Subroutine  GENI. 

The  statements 


C 

C*  CLEAR  M*STE»-A$TER  ARRAY 

c 

10  Ofl  11  I  «LH ASE  •  NDQ 
ASTER ( I ) *0  • 

\\  CONTINUE 


are  executed  when  the  target  geometry  is  not  entered  by  tape  4  but  is  to  be 
entered  and  processed  by  Subroutine  GENI.  These  statements  zero  the 
10,000  words  that  are  to  be  the  MASTER- ASTER  array. 

The  statements 


EnTEB  and  PROCESS  Target  GEOMETRY  VIA  SUBROUTINE  GENI 

WRITE  (6. 90S) 

CALL  GENI 
WRITE  <A*906) 

IP  I IERR.LE, 0) GOTO  12 
WRITE  f6»907>ICRR 
STOP 


are  used  to  output  the  message  ENTER  GENI  and  to  call  Subroutine  GENI  to  enter 
and  process  the  target  description  from  card  input.  When  Subroutine  GENI 
returns  control,  the  message  LEAVING  GENI  is  printed.  Error  counter  IERR  is 
tested  to  determine  if  any  errors  occurred  in  Subroutine  GENI.  If  errors 
occurred,  the  message  TERMINATION  ON  GEOMETRY  INPUT  ERROR  and  the  number  of 
errors  are  printed,  and  the  program  is  then  terminated  by  the  STOP  statement. 
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The  statements 


C 

C6  WHITE  OUT  TARGET  OEOHETRV  TO  OUTPUT  TAPE  4 
C 

1?  IF (IWRTP4.E0. NO) GOTO  20 

*HITE  (4>  L0ASE«LE6EOh»NOQ» (ASTtH tL> *L«I »MOQ) »L0OuY»l.RE6O»LPlN» 
1  L«OT .LIO.LlPrO«N«PP.NBOOY»NRMA*tPlNFt IT 


are  executed  if  Subroutine  GENI  was  called  and  if  no  errors  occurred  during 
ub routine  GENI.  These  statements  are  used  to  write  out  the  target  geometry 
description  on  tape  4  if  control  word  IWRTP4  is  set  to  1. 


The  statements 


C 

ct  call  subroutine  test© 

c 

20  IF<ITESTQ,EQ.N0)00T0  30 
WRITE  (6*9()G) 

CALL  TeSTQ 
WRITE  (6*9<)9> 

ITESTQaNO 


are  used  to  determine  if  Subroutine  TESTG  is  to  be  called  (ITESTG=1)  If 
xt  is,  the  message  TESTG  IS  CALLED  is  printed,  and  Subroutine  TESTG  is  called. 
When  control  is  returned  from  Subroutine  TESTG,  the  message  LEAVING  TESTG  is 
printed,  and  the  ITESTG  option  variable  is  set  to  zero. 

The  statements 


C 

CR  call  subroutine  volum 

c 

30  IP(IVOLUM(EO*NO)«OTO  40 
WRITE  (6*916) 

CALL  VOLUN 
WRITE  (6*917) 

IVOLUM«NO 


are  used  to  determine  if  Subroutine  VOLUM  is  to  be  called  (IVOLUM=l) .  If  it 
is,  the  message  ENTER  VOLUM  is  printed,  and  Subroutine  VOLUM  is  called. 

returned  from  Subroutine  VOLUM,  the  message  LEAVING  VOLUM  is 
printed,  and  the  IVOLUM  option  variable  is  set  to  zero. 
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The  statements 


C 

CQ 

c 

c 

c 

c 

c 

c 

c 

c 


REGION  IDENTIFICATION  DATA 


format  -  /  ICODE  /  IDENT  / 


irm  >  region  number 
icooe  ■  item  code  .... 

ident  ■  space  code  and  special  Identification 

SPECIAL  lOENTIF IcaTION  ■  j q *20 • 30  * *0 i5q ' ' 70 * a0,90 
NO  IDFNT  CODE-0  SKlRT-10  AHmOR-20  TAHGET-3q 

space  cooes  exterior  VOLUME  *  i 

INTERIOR  VOLUME  -  -1  * 1-9t, •• *91-99 


40  LtRFO-NOQ-NRMAX-IO 

IF (LlRFO.GT.LEGEOM)GOTO  ♦! 
WRITE  <6*913) LEGEOm,LIHFO 
STOP 

WRITE  (6*910)LIf»FO 


ars  used  to  compute  a  location,  LIRFO,  near  the  end  of  the  MASTER  ASTER  array 
where  the  region  type  data  is  to  be  stored.  After  computing  the  beginning 
location,  based  on  the  number  of  regions  in  the  target  geometry,  a  test  is 
made  to  determine  if  this  location  occurs  after  the  last  location  of  the 
target  geometry  data  entered  by  Subroutine  GENI .  If  LIRFO  occurs  before  the 
end  of  the  geometry  data,  an  error  message  with  the  value  of  LIRFO  and  the 
value  of  the  last  location  of  geometry  is  printed.  The  program  is  then  ter¬ 
minated  by  the  STOP  statement.  If  LIRFO  occurs  after  the  end  of  the  geometry 
data,  a  message  and  the  region  table  headings  are  printed. 


The  statements 


CiO  ENTER  AND  STORE  REGION  ID  DATA 

C  42  REAO(5,9U  )  IRN,  ICODE,  IDENT,  (A  (  1 ),  1-1,6) 
IEtIRN.LE.fi)  GOTO  50  ..... 

WRITE  ((,*9i2)IRN.IC00Et  lOENT  *  (a<1)*I-i*6* 

I OENT-IDENT  *1 

K-LIRFOMRN-i 

MASTER (K) -ICDOE-I i5*I0ENT 
GOTO  42 


are  used  to  enter  from  card  input  the  region  number,  component  code,  space 
code  and  special  identification,  and  a  36-letter  description  of  the  region. 
A  test  is  made  on  the  region  number  to  determine  if  all  of  the  region  data 
cards  are  entered.  If  not,  the  data  on  the  input  card  is  written  out. 
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A  one  is  added  to  IDENT  to  prevent  storing  a  negative  number,  the  location  in 
the  MASTER  array  is  computed  based  on  the  region  number,  and  the  component 
code  and  space  code  are  packed  in  the  MASTER  array.  The  program  then  branches 
to  enter  the  next  region  data  card. 

The  statements 


C 

oil  no* a  -  number  or  aspect  amjl.es  roR  subroutine  grid 

C  IT*PE8  *  SUPPRESS  PRINTER  OPTION 

c  i rot  »  write  option  for  t*pe  j 

C  NAPE*  a  NUMBER  or  ASPECT  ANGLES  for  subroutine  area 

c 

50  READ  C5  *927 )N(JAA« I  ROT* 1  TAPES tN ARE A 
IF IIWOT.NE.O) IGOTalYES 

IF (ITAPEB.EQ.o)GOTO  51 

TTAPEB«NO 

GOTO  ^2 

51  ITAPEBal YES 

52  IF ( I WOT. EQ. NO > GOTO  GO 
REWIND  1 

WRITE  16*914) 

WRITE  I^isINOaa*  <IT(II  tiai*10> 


are  used  to  enter  NOAA,  the  number  of  aspect  angles  for  Subroutine  GRID;  1W0T 
the  write  option  for  output  tape  1;  ITAPE8,  the  suppress  printer  option  for 
Subroutines  GRID  and  TRACK;  and  NAREA,  the  number  of  aspect  angles  for  Sub¬ 
routine  AREA.  If  IWOT  is  not  equal  to  zero,  it  is  set  to  one.  If  ITAPE8  is 
equal  to  zero,  the  printer  is  not  to  be  suppressed.  IWOT  is  then  tested  for 
a  zero  or  one  value.  If  IWOT=l,  output  tape  1  is  rewound,  a  message  is  printed 
out  that  the  write  tape  1  option  was  specified,  and  a  60-column  alphanumeric 
title  of  the  problem  is  written  out  on  tape  1  along  with  the  number  of  aspect 
angles  to  be  processed  by  Subroutine  GRID 


The  statements 


60  IE(NOaa.IE.<j>GOTO  70- 
WRITE  1 6  ) NOA A 


are  used  to  determine  if  there  are  any  aspect  angles  to  be  processed  by  Subrou- 
tine  GRID.  If  not,  the  program  branches  to  test  the  Subroutine  AREA  option. 

If  there  are  aspect  angles  to  be  processed,  the  number  of  aspect  angles  to  be 
processed  by  Subroutine  GRID  is  written  out. 
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The  statements 


CALL  SUBROUTINE  ©HID  P0«  EACH 


on  61  I*1*N0AA 
IERH»0 

IERRq-0 


WRITE  (6*9l©n 
WRITE  t6«929>IERfl 
WRITE  (6’930HEBR,J 
CONTINUE 


ASPECT  ANGLE 


consist  of  a  DO  loop  which  is  used  to  perform  the  ray-tracing  phase  of  the 
rtAGIC  program  by  calling  Subroutine  GRID  for  each  aspect  angle.  When  control 
is  returned  after  Subroutine  GRID  processes  each  aspect  angle  th^write 
output  tape  1  option,  IWOT,  is  tested  for  an  equal-to-one  condit  . 
is  equal  to  one,  the  Hollerith  code  999.9  is  printed  on  output  tape  1,  a 
message  and  the  aspect  angle  number  are  printed;  the  number  ^Subroutine 
is  printed ■  and  the  number  of  0  items  encountered  is  printed.  The 
SStoS Trtr hunter  and  the  number  »f  0  itens  colter  are  set  to  aero 
before  continuing  to  the  next  aspect  angle . 

The  statements 


70  [MNAREA.LE.OtOOTO  " 

WRITE  16*998) NAREA 


ire  executed  after  all  aspect  angles  (if  any)  for  Subroutine  GRID  have  been 
processed.  These  statements  are  used  to  determine  if  there  are  any  aspect 
ingles  for  Subroutine  AREA  to  be  processed.  If  there  are,  the  nura 
aspect  angles  for  Subroutine  AREA  is  printed. 

The  statements 


Cl 3  CALL  SUBROUTINE  AREA  POR  EACH  ASPECT  ANOLC 

DO  71  I-ltNAREA 
IERR»0 
CALL  AREA 
HfllTE  (6*91911 
Tj  CONTINUE 
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consist  of  a  DO  loop  which  is  used  to  call  Subroutine  AREA  for  each  aspect 

esses  eacheasn°TS  1  contro1  ^  returned  after  Subroutine  AREA  proc- 

esses  each  aspect  angle,  a  message  with  the  aspect  angle  number  is  printed- 

£  “P“?e"ror  13  s'c  “  ' 


The  statements 


C 

»9  «»ITC  (6t994> 
STOP 


**!r™eC?ted  When  !X1  processlag  in  the  MAGIC  program  is  complete.  These 
ements  are  used  to  print  out  the  message  END  OP  RUN  and  to  terminate 
the  program  with  the  STOP  statement.  terminate 
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Subroutine  GENI 


Subroutine  GENI  is  the  main  control  routine  for  target  geometry  input 
processing.  Its  purpose  is  to  organize  the  target  geometry  input  data  into 
a  usable  format  for  subsequent  subroutines.  All  of  the  organized  data  is 
stored  in  a  large  array  called  the  MASTER-ASTER  array. 

The  processing  of  the  body  input  descriptions  is  accomplished  by 
calling  Subroutine  RPPIN  to  enter  and  process  the  RPP  data.  All  other 
bodies  are  processed  directly  by  Subroutine  GENI,  with  the  exceptions  of 
the  arbitrary  polyhedron  (ARB),  which  is  processed  by  calling  Subroutine 
ALBERT  when  input  for  an  ARB  is  encountered;  and  the  arbitrary  surface  (ARS) , 
which  is  processed  by  calling  Subroutine  ARIN  when  input  for  an  ARS  is 
encountered. 

When  all  of  the  body  input  data  has  been  processed.  Subroutine  GENI 
enters  the  input  data  for  the  region  descriptions,  stores  it  in  the  MASTER- 
ASTER  array,  and  then  computes  the  region  enter/ leave  tables. 

During  all  of  the  input  processing.  Subroutine  GENI  also  checks  for 
errors  in  the  input  data  and  prints  out  appropriate  diagnostic  error  messages. 

The  statements 

DIMENSION  ITY(ll) «IAN(R) tlAA(fi) *FX(2o>  »N0OO(11>  « 
l  N0o<3>  tNOl  (3)  »N02«3>  t04(3)»rn3>»TTH3)»TT2l3> 

DIMENSION  maSTER < 10000) 

COMMON  ASTERI10000) 

COMM0N/GE0M/LBASE»*INt«0UTtL«t •IRO,PinF»IE«R»DIST 

COMMON/UNCGEM'NRPP.NTRlP.NScAL»N0O()Y,NRMAX»LTRIP*i.SCAL»l.REaD* 

1  L0ATAtLRIN.L«OT,CIO.L0CDA*IlS»l30*L8OOY»NASc*XUOOP 
COMMON/ TEMPOP/XS (6* tX(6>tIX<e>«lT(l0)*IA<9>»lN<9> 

COMMON/CON TRL/ I TES TO* IRAYSK* IENTLV* IVOLUMtlMOT • ITaP6®»NO» I YES 
COMMON/S  I ZE/NOO 
COMMON/UNCLE/NN* lc (4» 

COMMON/RRPP/LPPPD*LABUT 

common/en&eom/legeom 


are  used  to  dimension  arrays  and  to  pass  information  into  and  out  of  this 
subroutine . 

The  statement 

EQUIVALENCE  USTER. MASTER) 
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Is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 


The  statements 


C 


901  FORMAT { 1HQ. 24HSTART 

902  FORMATI10A6) 

903  F(lRHAT(lH0tl0*6/l 

a a .  rnfiuAf t  ai 


READING  SOLID  DATA) 


'  v  j  ""  "  1  '  A  V  *  A  V  / 

90*  FORMAT  t  T X 1 0  ^ 

905  FORMAT  UK t3*MN0,  OF  RECTANGULAR  PARALLELEPIPEDS* 1 1 fl/ 

1  4X.34MN0,  OF  SOLtDS  "  ,Iin/ 

2  A X  *  34HMAX  NO,  OF  REGIONS  » 1 1 0 ) 

906  FORMAT ( 1  Ho »45X i S2HRECT ANGULAR  P*f)*lLri  roiarn  ruBii*i 


906 

911 

91? 

913 

914 

915 

917 


»  Unn.n  MU,  Of  Ht  G I  UN  S  f 

FORMAT (1  Ho *4SX*32MRECT ANGULAR  PARALLELEPIPED  INPUT) 
FORMAT ( iHo  *30  X  t??MOE SCRIPT  ION  OF  SOl  IOS) 

FORMAT ( 3A 1 « A3* A4*6Fi 0*5) 

FORMAT (1M0.6MITVPE  .A3.27H  OOES  NOT  MATCH  mITm  AN  ITT) 

FORMAT (I9*1X*3A1*3X, A3* A4*3X*8I9> 

FORMAT ( 18* iX* 3Ai *2X,A3*A4*AX*6Fl2*5t 
FORMAT(25X,ftf 1?.5I 

FORMAT Hho*38MNO  MORE  ROOM  FOR  SOLID  DATA 
5X.MHLB0T*.  1 1  nxK.iHNnQ*.  1 1  n  1 


LOATa"*I10* 


MIT  f """A  1  I ing *38MMU  MUH£  muum  FUR  SUL  id  Data 
1  5X*5MLBOT«*ll0*SX**HND8M.I10t 
91*  FORMAT! 1H0*25HFIN1SH  REAOING  SOLIO  OaTa) 

919  FORMAT UMo.  SHLRC0D.7H  LREGL.7H  LENLV.TM  LRIN.7H  LROT. 

1  7H  LIO.7M  LEGEOM/ 1 5 *6 17) 

92Q  FORMAT (1Hi*36X*23HREGION  COMBINATION  OATA) 

92j  FORMAT(l5*lX*9U2*t5>) 

922  fORMAT ( 1  Ho  *  30H£RRoR  IN  OEScRIPTION  Of  REGION. 15. 

19H  IN  FIELD. I?*5X.24HROOT  NUM.GT.NRPp  *  n80DY> 

923  FORMAT (10X*9(1H(*a?.I5»1H»*1X() 

924  FORMAT ( IS*2X*9(iHt  *A2*I5*1H) *1X) ) 

9?5  FORMAT aHO,30HlLLEGAL  OPERATOR  IN  ABOVE  CaRO.kX.A?, 

1  9H  IN  FIELD  *  1 2 J 


925 

1  9H  IN  FIELD  » 1 2) 

92*  FORMAT tlMo*29MERROR  IN  REGION  INPUT 
927  FORMAT (1H0.39HNO  MORE  ROOM  FOR  REGI 
1  5X*4HNOQ*<I10> 


MORE  ROOM >0R 'REGION  OaTa  LOaT A»*'i  1  iT 


IRm.IS.14H  OR  N.GT.NRMAX) 

\A  Tl  1  f  Ab  7  1  a 


92*  FORMAT UHQ.26HFINISM  READING  REGION  DATA) 

9?9  FORMAT { 14M  ERROR.  REGION . 1 1 0* l*H  IS  PaRT  OF  REGION. Il0> 

93Q  FORMAT  <24M  FINISH  CHECKING  REGION  .U) 

931  FORMAT (j HO* 34HN0  MORE  ROOM  FOR  eNTE*  LE*Ve  TabLE *5X. 

I ,  *HLQATAM»I10»5X»4HNOQ«llo»5X.4HPAS5,l2t3X»3MlR*.UO> 

932  FORMAT {j HO .28HTOTaL  ROOM  FOR  GEOMETRY  DATa.S*.7HLEGE0MM. U) 

933  FORMAT (1H0.5HENTER. 181*/ (23X.15I*) ) 

934  FORMATUH  . 5HLEAVE.18l6/tZ3X. 15161  ) 

935  FORMAT tlHi*50X,1BHBEGTN  aR«AT  OUTPUT/) 

93*  FORMAT(3<3l6.  ]X,EU,4*3H  S  )} 

937  FORMAT t/l 


93*  FORMAT(iHo,34MFINISH  A  PASS  OF  ENTER  LEAVE  TABLE.I5) 

940  FORMAT  <)QK,6F10,5) 

941  FORMAT (1Ho,37HTERm I NATION  ON  BAD  REGION  DESCRIPTION) 

942  FORMAT (1H0.32HERROR  IN  DESCRIPTION  Of  BODY  NUm.16/ 

1  TH  VECTOR. 3F12.S.24N  IS  NOT  PERPENDICULAR  TO  / 

2  7H  VECTOR. 3F12. 5/) 

943  FORMAT UH0.27HERROR  IN  DESCRIPTION  Of  TOR *SX *0HR2. GT , Rl / ) 

944  FORMAT (1H0.27HERROR  IN  DESCRIPTION  OF  TRC.5X.7MRl  *  R?/ ) 

945  FORMAT  I  lHO.5HLBASE.7H  LRPPO* 

1  7M  LABUT.7H  LBODY.7H  LBOD.7H  LDaTa.TH  LSOT.7H  LSCaL. 

2  7H  LTRIP.7H  NDQ/I5.9I7) 

946  FORMAT ( !Hi»i7HENTeR-LEaVE  Ta9LE» 

947  FORMATtlH0.il  t2X.A3)/nIS) 

948  FORMAT! 1H0.27HERROR  IN  DESCRIPTION  0F  TEC.5*. 

1  41HHEIGHT  VECTOR  15  PARALLEL  To  BASE  ELLIPSE) 
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are  used  to  format  the  input  data,  output  data,  and  output  messages. 
The  statements 


DATA  ITYM}«ITV<21  »  I T  Y  {  3 )  «lTY(4)*lTY(b)«ITY<fcl*lTY(T)tITY(0) 

1  /  3HBOK  *  JHSPM*  3HRCC.  3HftECt  3HTRC*  3HELL*  3HRAW*  3MAHB  / 

DATA  ITY  (9)  »  ITY  ( lo)  .  ITY  in  ) 

J  —jw-  *  1HARS  / 

?1  *  I AA { 3) f I  A A (4 1 *  1 AA  1 5 )  1 1 AA  f  6  >  *  I A  *  t  T I  *  I  A A  <  0 ) 

r  |  jh  R  *7HR  *  2H»A  •  2NAR  .  2H  A  t  *HA  / 

2)  *  IAN  (31  tIANUJ  *I*N(5t  .JAN  (6)  •  1*6)17)  *lANt8) 

1  .  I  ♦  1  *  2  »  2  »  3f  3  / 


1  /  3HTEC*  3HT0R 

DATA  1 66 tl ) » 1 AA  i p 
1  /pH  t  2H0R 

Data  I  aN  1 1 > » T  AN ( 2 
1  /  4  » 

DATA  IRL/1H  / 


are  used  to  assign  abbreviated  forms  of  the  11  bodies  used  to  describe  the 
target  geometry  to  array  ITY.  Logical  operator  evaluation  data  is  entered 
Into  array  IAA,  and  integers  are  placed  in  the  IAN  array  for  converting  the 
logical  operator  of  a  body  to  a  number.  A  blank  is  entered  into  IBL  for  con¬ 
trol  purposes. 


The  statements 


DO  10  1=1*11 
10  NBOO) I  1=0 

are  used  to  clear  the  NBOD  array  which  is  used  as  a  counter  for  each  body  type 
used  to  describe  the  target  geometry. 


The  statements 


C?  ENTER  AND  PRINT  OUT  TITLE  0E  THE  PROBLEM 
C 

WRITE  (6*901 ) 

READ  ( 5*902 )  <mi>*l'l«10> 

WRITE  <6*903>  UT(I>*IM*10> 


are  used  to  output  the  message  START  READING  SOLID  DATA  and  to  enter  and 
print  out  a  60-column  alphanumeric  title  of  the  problem  which  will  appear  in 
the  printed  output. 


177 


TN  4565-3-71  Vol  II 


The  statements 

ENTER  and  PRINT  OUT  THE  PROGRAM  CONTROL  PARAMETERS 
C 

REA0(5,90*)NRPR,NTRIP,NSCAL.N8OOr,NRHAX#IPHINf IRChE* 
h«tte  (A.«Jo5)NRPP«NBOOY,NRMAX 


are  used  to  enter  and  print  out  the  control  parameters  of  the  problem.  Those 

NSCALS  I"  ere  a5e  ^RPF’  the  number  of  rectangular  parallelepipeds;  NTRIP  and 
NSCAL,  dummy  variables;  NBODY ,  the  number  of  different  bodies  used  to  describe 

made  S8t^e8S?’srLrSS  ^  ***'?  the  maXimum  number  °f  re*lo"s 

(if  IPRIN  iaR  h6r  8e°metric  configurations;  IPRIN,  a  printing  option 

Ut  IPRIN  is  other  than  zero,  the  MASTER-ASTER  array  will  be  printed  out  Ln 

rerio6^  °US™ruvl±ne  GENI);  and  IRCHEK*  to  check  the  validity  of  the 
region  data  if  IRCHEK  is  other  than  zero. 


The  statements 

C 

C  a  RPP 

C 

WRITE  (6'906) 
l*R»l 


tTnn'T  t0  ^tput  the  messa®e  RECTANGULAR  PARALLELEPIPED  INPUT  in  prepara- 

LAR  is°thln  t8t  RPP  lnput  data  int°  the  MASTER-ASTER  array.  The  variable 
ASTER  array  006  indiCate  the  next  mailable  location  in  the  MASTER- 


The  statements 


C 

cs  rpp  data  input 
C 

ir<NRPP,uE,0)OOTO  20 
CALL  RPPINILAR) 

IF (IERR»GT,o) RETURN 


-Ss-s-ir 

m1]o,  .  .  y  ,LZ  cnere  ls  RPP  data  to  be  processed,  Subroutine  RPPIN  k 

'  °.e"te5  the  111,15  data-  When  Subroutine  RPPIN  completes  its  task  it 

returns  with  the  variable  LAR  set  to  the  next  available  ?„“tio“  n  the  aster 
array.  A  test  determines  if  there  were  any  errors  in  the  RPP  input  Tf 

ere  were  errors,  the  subroutine  returns  to  the  MAIN  program. 
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The  statements 


CT  U0OOY  STORAGE  RESERVE  3# (NRPP*NBODY >  "ORQS 

/  0ODY  number  /  LOC  OF  POINTER  To  body  0*T*/ 

/  reoion  enter  table  pointer  /  region  leave  table  pointer  / 

/  NUN  REG  IONS  IN  ENTER  TABLE  /  NU*  REGIONS  IN  LEAVE  TABLE  / 


20  LBoT»NOO-2 

L-LAR 

LROOY«L*l 

ldata*lboot*3* (NBOOY*nRPPI 

LSOO"LOATA 

are  used  to  set  LBOT  to  the  first  location  for  storing  body  dimensions  (stored 
backward  from  the  end  of  the  MASTER-ASTER  array)  and  to  equate  L  to  the  last, 
location  at  the  end  of  the  RPP  data  in  the  ASTER  array.  LBODY  is  the  beginning 
location  of  the  body  data  pointers  and  is  the  next  location  after  L.  Pointer 
LBODY  is  saved  for  later  printout  of  major  pointer  values.  The  beginning  loc- 
ation  of  the  body  data  is  computed  and  assigned  to  LDATA ,  and  LBOD  is  equated 
to  LDATA  for  later  printout  of  major  pointer  values. 

The  statement 


C 

50  wem 

is  used  to  output  the  message  DESCRIPTION  OF  SOLIDS  prior  to  processing  the 
individual  body  data. 

The  statement 

C 

CIO  EfcTER  DATA  for  BODY 
C 

on  3T0  N«ltNB0QV 

is  used  to  begin  a  DO  loop  which  will  enter,  process,  and  organize  data  for 
each  geometric  shape  (descriptor)  in  the  target  geometry  for  use  by  the  other 
subroutines  in  the  MAGIC  program* 

The  statements 


NN*N*NRPP 

L51-0 

are  used  to  compute  a  value  for  NN  based  on  the  body  number  and  the  number  of 
RPP's  used  to  describe  the  target  geometry  and  to  initialize  variable  LSI  to 
zero.  LSI  is  used  by  Subroutine  SEE 3  for  storing  either  triplet  or  scalar  data 
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into  the  ASTER  array.  LSI  =  0  means  that  triplet  data  is  to  be  stored. 

LSI  =  1  means  that  scalar  data  is  to  be  stored. 

The  statement 

ao (5,912)  icii>*icc?)*ico).mpe»icu»*(rx(to.K.l#4) 

is  used  to  enter  program  control  data  fIC(l)  and  IC(4)],  the  body  type  (ITYPE) , 
and  the  body  dimensions. 

The  statements 


00  51  1*1  ♦  1 1 

If ( ITVPE.EQ.ITY ( 1 > (GOTO  5? 
•n  continue 


consist  of  a  DO  loop  which  compares  each  of  the  eleven  possible  body  types 
with  the  body  type  entered  until  the  body  types  match. 


The  statements 


WBITE  (5*913) ITYPE 
STOP 


are  executed  if  no  match  is  established  between  the  eleven  body  types  in  the 
ITY  array  and  body  type  entered.  A  message  is  printed  out  giving  the  body 
type  entered  and  stating  that  there  was  no  match  with  the  body  types  in  the 
ITY  array.  The  program  is  then  terminated. 

The  statements 


52  I  TYPE* 1 

N400(I)«NBOOm«l 
K»Lb0dV*3* (N»PP*N-i ) 
master  (K)«!  TYPE*  U5«L0aTA 


are  used  to  assign  the  body  type  number  (1-11)  to  ITYPE  and  to  increment 
by  one  the  number  at  NBOD  referenced  by  the  present  body  type  number.  A  loca¬ 
tion  in  the  body  data  section  (LBODY)  is  computed  from  the  number  of  RPP’s  in 
the  target  geometry  and  the  number  of  the  descriptor  now  being  processed.  The 
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body  type  number  and  the  pointer  to  the  body  data  pointers  are  packed  into 
the  word  at  the  location  referenced  by  K. 

The  statement 


C  00*  SPH  RCC  REC  TRC  ELL  R*«  TEC  TOR  *RS 

200  GOTO (2® J *220*20?*701 »£03*202i20l»230*20**2o3,24U 1 Yp£ 


is  executed  if  it  was  previously  determined  that  the  input  contains  all  or 
part  of  the  triplet  and  scalar  data  (dimensions)  of  the  present  body.  This 
statement  causes  a  branch  to  the  appropriate  section  for  the  present  descriptor. 


The  statements 


201  LF*1 2 
flnTO 

202  LE*  7 

0*1  Tn  2io 

203  LE*  8 
8OT0  210 

204  CF-13 

are  used  to  assign  to  variable  LE  the  number  of  data  elements  required  for  the 
dimensions  of  the  present  body.  LE  is  used  in  the  following  READ  statement  as 
the  upper  limit  of  the  implied  DO  loop  to  enter  the  data  elements  required  in 
addition  to  the  six  data  elements  in  array  FX.  For  a  sphere,  arbitrary  poly¬ 
hedron,  or  arbitrary  surface,  the  program  branches  around  these  statements 
since  all  of  the  necessary  data  elements  for  a  sphere  are  contained  in  array 
FX,  and  the  ARB  and  ARS  require  special  subroutines  to  input  their  data  ele- 
meats  * 


The  statements 

21 C  *RIT£  <6»915>"N*1C<1)  •  IC  *2»  *  It  O'  *ITY  1 ITYPE)  •  1C  ‘*1  *  <FX(J)  .J*l*$» 

READ (5* 9*0 > (FX ( J) , j-TtLEl 
RRlTt  <6'916>  (FX IJ) *J«7*LE> 

are  used  to  write  out  the  pertinent  program  data  and  the  data  elements  for 
the  body.  The  additional  data  elements  required  are  then  entered  and  written 

out . 


The  statement 


C  HO*  SPh  RCC  REC  T«C  Etc  R**  4PP  TEC  TOR  *RS 

On  TO  (29o  *300  *300  *290  *205  *270  »29o  *3()0  *260  *  2&U  *  300  1  tlTTPE 

is  used  to  cause  a  transfer  to  the  appropriate  body  section  to  perform  checks 
on  the  data  or  to  compute  additional  data  that  is  required  that  was  not  part 
of  the  input. 
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The  statements 


C  SPm 

220  nnTftC  ' I Tr ( ITVPt } • IC (4) , (FX { J) ( J* ] ,4 } 


are  used  to  write  out  the  pertinent  program  data  and  the  data  elements  if 
the  present  descriptor  is  a  sphere  with  all  of  the  data  elements  in  array  FX 
The  program  then  branches  to  process  and  store  the  data. 

The  s  tatements 


C 

Cl4  TER  BODY  PIT*  FOR  IPR 

C 


OOTO  360 


cardUnrfvJnnsrte  ^  ^  pertinent  P^gram  data  and  the  information  on  the 
then  Lli.a  /yent£red  When  the  descriPtc>r  is  an  ARB.  Subroutine  ALBERT  is 
supplied  in  array^X^  ^  elementS  for  the  ARB  fr<™  the  face  points 


The  statements 

cis  enter  boot  oata  for  ars 

c 

?*0  CALL  ARIN(LR0T*LDATA» 
GOTO  360 


are  executed  if  the  body  is  an  ARS  and 
compute  and  store  the  data  elements  in 


are  used  to  call  Subroutine  ARIN  to 
the  ASTER  array. 


The  statements 


i*  tor  convert 

250  TT|I)«FX(4> 

IT  (?) »FX t5) 
TT(3)«F*l6» 

CALL  UNIT  < T T > 

FX (*I»TT(|( 

f *<5>«TT  t2t 
E X ( 6 ) «TT  <3 > 


NORMAL  VECTOH  TO  UNIT  vector 


are  executed  when  the  body  is  a  torus  and  the  data 
in  array  FX.  These  statements  are  used  to  compute 


elements  were  contained 
additional  information 
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required  to  completely  describe  the  torus.  Specifically,  these  statements 
convert  the  coordinates  of  the  normal  vector  of  the  torus  from  array  FX  to 
a  unit  vector  by  calling  Subroutine  UNIT.  The  resulting  coordinates  are  then 
stored  in  array  FX. 

The  statements 


IF(FX(7)  .Ge.FXfsMOOTO  2Bo 
WHITE  (6*943) 

IERR*lERfi*l 
GOTO  280 


are  used  to  compare  the  major  and  minor  radii  of  the  torus.  If  the  minor 
radius  is  larger,  an  error  message  is  printed  out  and  the  error  count  is 
incremented  by  one. 

The  statements 


C 

Cl T  TEC  VERIFY  SEMI-MAJOR 

C 

260  Ft (15) »FX ( 13) 

LE-15 

TT i ( 1 >»FX  (?) 

TTi (2)»FX(flt 
TT 1 (jl-FX (9) 

TT2< 1 )*FX  t  j  o  > 

TT2I2>»FX(ii> 

TT2(3)*F*Ii2> 


AMD  SEMI -MINOR  AXES  PERPENDICULAR 


are  executed  when  the  body  Is  a  truncated  elliptic  cone  and  the  data  elements 
are  contained  in  array  FX.  These  statements  are  used  to  move  the  value  of 
the  ratio  of  the  larger  to  the  smaller  ellipse  from  FX{13),  where  it  was 
entered,  to  FX(15) .  The  variable  LE  is  set  to  15  for  later  use  as  the  upper 
limit  in  an  implied  DO  loop  when  the  dimensions  for  the  TEC  are  written  out. 
The  coordinates  of  the  semi-major  axis  and  semi -minor  axis  vectors  are  then 
stored  in  arrays  TTI  and  TT2,  respectively. 

The  statements 


IF  (ABStDOT  <  TT  i  *TT?M  *LE*0*01>  G°to  *6S> 
WHITE  (6*942) MN* TTI *TT2 

IERR*lERfiM 
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are  used  to  determine  if  the  absolute  value  of  the  dot  product  of  the  semi- 
major  axis  vector  and  semi-minor  axis  vector  is  less  than  a  small  value,  which 
indicates  that  the  two  vectors  are  perpendicular,  as  they  should  be.  If  they 

are  not  perpendicular,  an  error  message  is  written  out  and  the  error  count  is 
incremented  by  one. 


The  statements 


Cie  COMPUTE  SEMI-MAJOR  AXIS  length  and  CONVERT 
C  SEMI-MAJOR  AXIS  to  unit  VECTOR 

c 

265  r*U3)»SQRT(0OT(TTl.TTl)  > 

CALL  UNIT  I T T 1 1 

MCip.TTx  (2> 

M<12)«TTH3> 


are  used  to  compute  the  radius  of  the  serai-major  axis  from  the  scalar  value 
ol  the  semi  major  axis  and  store  the  result  in  FX(13).  Subroutine  UNIT  is 

cooid?  t  C°mpUte  the  unit  vector  of  the  semi-major  axis  and  the  resulting 
coordinates  are  stored  in  FX(10),  FX(ll),  and  FX(12).  8 


The  statements 


compute  semi-minor  axis  length  and  convert 
SEMI-MJHOR  AXIS  to  unit  vector 


FX  ( 141 aSQRT (DOT (TT2«TT2) ) 
CALL  CR0SS(TT,TTi,TT2J 
CALL  UMT(TT) 


are  used  to  compute  the  radius  of  the  semi-minor  axis  from  the  scalar  value 
Of  the  semi-minor  axis  and  store  the  result  in  FX(14) .  Subroutine  CROSS  is 
then  called  to  compute  the  cross  product  of  the  semi-major  axis  vector  and 
the  semi  minor  axis  vector  which  results  in  a  vector  perpendicular  to  the 
base  ellipse.  Subroutine  UNIT  is  called  to  convert  the  perpendicular  vector 
to  a  unit  vector,  or  the  direction  cosines  of  the  normal  to  the  base  ellipse. 

The  statements 


HON.FXU>*TT(  j  )*Fx<5)«rTt2] 
If  (HON ) £67 *266 • ?68 


'  "  I  ■  1 


are  used  to  compute  the  dot  product  of  the  height  vector  and  the  normal  unit 
vector  to  the  base  ellipse  and  to  then  determine  the  sign  of  the  result. 
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The  statements 


266  WQ]TE<6t9«B> 
I€RR*IEHB*1 
GOTO  26U 


are  executed  if  the  result  of  the  above  dot  product  was  zero,  which  indicates 
that  the  height  vector  is  parallel  to  the  base  plane.  An  error  message  is 
therefore  printed  out,  and  the  error  count  is  incremented  by  one. 


The  statements 


267  TT « 1 >  «-TT  < 1 > 
TT  <2>  «-TT <2> 
TT  1 3 ) »-TT  (3) 
26*  M(7>"TT<1> 
M<8>"TT(2) 

F x (9)«TT  1 3> 

onto  280 


are  used  to  store  the  coordinates  of  the  normal  to  the  base  ellipse  in  FX(7) , 
FX(8),  and  FX(9)  if  the  dot  product  was  positive,  or  after  the  direction 
cosines  have  been  reversed  if  the  dot  product  was  negative. 


The  statement 


C 

020  COMPUTE  FOCI  FOR  ELL 
C 

270  IF (IC<4> .EQ.lBLlGOTO  300 

is  used  to  test  location  IC(4),  previously  entered,  to  determine  if  it  con¬ 
tains  blanks.  Blanks  in  IC(4)  indicate  that  FX  already  contains  the  coordi¬ 
nates  of  the  foci  and  the  length  of  the  major  axis  of  an  ELL  when  the  card 
containing  FX  was  originally  entered.  Non-blank  characters  in  IC(4)  indicate 
that  FX  contains  the  coordinates  of  the  center  of  the  ELL  and  the  coordinates 
of  one  end  of  the  ELL,  along  with  the  radius  of  the  minor  axis  of  the  ELL. 
Therefore,  the  coordinates  of  the  foci  and  the  length  of  the  major  axis  must 
be  computed. 

The  statements 

ASQ»FX  (*>«FX  (4»  *FX  <S.»#FX  15)  *FX  <6*#F*  (6) 

C»SURT  USQ-FX(7>*rX(7> > 

4»SQRT|*S0) 

FX  <  7) A 
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are  used  to  compute  the  distance  from  the  center  to  a  focus,  the  distance 
from  the  center  to  the  end  of  the  ELL  along  the  major  axis,  and  the  length 
of  the  major  axis,  which  is  then  stored  in  FX(7). 

The  statements 

??1  COMPUTE  X.Y.Z  COMPONENTS  OF  FOCI 
C 

C*-C*f  X  U)  /a 
C*“C»FX  <5>/A 
CZ«C»FX<6>/A 


are  used  to  compute  the  x,  y,  and  z  components  of  the  focus  with  respect 
to  the  center  of  the  ELL. 

The  statements 


C 

C22  COMPUTE  X,Y, Z  COORDINATES  OF  FOCI 
C 

FX  U»«FX <1>*CX 
FX ( 5 ) *FX 1 2 ) *C Y 
Fx(6)«FX<3)*CZ 
FX  <  1  )»FX  (p-cx 
FX  *FX (j) -cy 
FX  i  3 ) »F  X ( 3 ) »CZ 


are  used  to  compute  the  coordinates  of  the  two  foci  and  store  the  results 
in  FX. 


The  statements 


C 

C?3 

C 

2«0 


PRINT  OUT  new  Input 


WRITE  (6,915) NN, IC  < 1 ) ,IC(2),Ici3| , I T  Y ( I  TYPE 
WRITE  (6«9)8) (Fx (j> , 

GPIO  300 


) t IC (9) , (Fx ( J) , 


,6) 


are  executed  when  some  of  the  data  elements  for  the  torus,  the  truncated 
elliptic  cone,  or  the  ellipsoid  of  revolution  were  not  entered  initially  and 
had  to  be  computed.  These  statements,  therefore,  are  used  to  write  out  the 
pertinent  program  data  and  dimensions  of  the  present  descriptor  if  it  is  any 
one  of  the  above  three  bodies. 

The  statements 

C 

C?4  TRC  VERIFY  LOWER  AND  UPPER  RADII  NOT  EQUAL 

C 

2R5  iFtrxm -Ne.mBnGoTo  300 
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WRITE  16*94*) 
IERB-IEPRM 
SOTO  300 


are  executed  if  the  present  descriptor  is  a  truncated  right  cone  and  the 
dimensions  (not  pointers)  are  contained  in  array  FX.  These  statements  are 
used  to  compare  the  radii  of  the  lower  and  upper  bases  to  verify  that  they 
are  unequal.  If  the  radii  are  equal,  an  error  message  is  written  out  and 
the  error  count  is  incremented  by  one. 

The  statements 

C?5  VERIFY  THAT  VECTORS  ARE  PERPENDICULAR  IF  8QX*  RAW,  OR  RtC 

c 

2R0  ir  <ABSlFX(4l*FX(Tt*FX(5J*Fx  (8MFX(6)*FX<9)>  .LE  *  0  •  0 1  >  GOTO  291 
WRITE  (6* 9*2> NN» <r* ( J) * J-* *9* 

IERR-IERR*! 


are  used  to  determine  if  the  HI  and  H2  vectors  are  perpendicular  for  a  BOX 
or  RAW,  or  if  the  height  vector  and  the  major  axis  vector  are  perpendicular 
for  a  REC.  If  they  are  not  perpendicular,  an  error  message  and  the  pertinent 
vector  coordinates  are  printed  out. 

The  statements 


291  IFtABSrFXC*»*FX[inl*FXI5)*FXIll)*FXt6)-FXI12) ) .LE . 0 • 0 1 > ^OTO  292 
WRITE  <6*9*2>NN,FX  <4*  *FX(s) tFX (*t  «FX|10i ,fX ( 1 »Fx <12* 
!ERR«IERH*1 


are  used  to  determine  if  the  HI  and  H3  vectors  are  perpendicular  for  a  BOX 
or  RAW,  or  if  the  height  vector  and  the  minor  axis  vector  are  perpendicular 
for  a  REC.  If  they  are  not  perpendicular,  an  error  message  and  the  pertinent 
vector  coordinates  are  printed  out . 

The  statements 


292  IF  tABSIFX  t7>*FX  ( i0l  *F*  ( %  >  *F  Xt  i  j  )  *F  X  )  *F  X  1 1 2  M  .LE.0*01 ,b0T0  3()0 
WHITE  (6'9*2)NN* (FX(J) *J«7*12) 
lERR" 1Erh*1 


are  used  to  determine  if  the  H2  and  H3  vectors  are  perpendicular  for  a  BOX 
or  RAW,  or  if  the  major  axis  vector  and  the  minor  axis  vector  are  perpendic¬ 
ular  for  a  REC.  If  they  are  not  perpendicular,  an  error  message  and  the  per¬ 
tinent  vector  coordinates  are  printed  out. 
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The  statement 
C 

C?b  STORE  SOOT  DATA  AMO  BOOT  DATA  POINTERS  IN  MASTER-ASTEP  ARRAY 
C 

C  80*  SPW  RCC  REC  TRC  EEL  RA*  ARB  TEC  TOR  aRS 

300  G0T0(3l  q.320‘330. 31  0 »3*0 *  33 0 • 3 1 0 '230 » 3So • 3*0 *2*0 >  *  I  TYPE 

is  a  computed  GOTO  statement  used  to  cause  a  transfer  to  the  proper  body 
section  where  the  body  dimensions  and  pointers  will  be  stored  in  the  ASTER- 
MASTER  array . 


The  statements 


C 

C?T  POINTER  format  box  raw  /V  /HI  /  REC  /V  /  *4  / 

C  /  Hg  H3  /  /  Ml  /  / 

C  . 

310  C«UL  SEE3(IRH,aSTFR.MaSTER*FXHJ  »fXf2»  ,FX(3)  t  UBOT ,  UJAT  A  ,NDQ  •  LSI  > 
master (ldata)wIwh»i is 

CALL  See  3  I IWH. ASTeR,MA$TEW.f X (4) »FX»5),FX16} tLB0T,L0ATA*ND0tLSl) 
MASTER (LDAT A) »maSTER(lOATa) *I«m 

Call  SEE3 (ImH.aSTCR.MaSTERiFX (7l iF  X  <8) tFX49) iLSOT  tLOATA iNOOt LSI ) 
MASTER (LOaTaM 15 

CALL  SEE3<  IWH.  ASTER,  m  AST  tw,FX<  io>  »FX(uUFX(i2), 

1  LROT,tOATAtNDO»LSl) 

MASTER (LOATA* 1  * “MASTER ILOAT A* i ) *Iwh 
LOAT  A“L0 AT  a*2 
GO  TO  3feo 


are  used  to  store  in  the  ASTER  array  the  triplet  data  for  the  present  descrip¬ 
tor  if  the  body  is  a  BOX,  a  RAW,  or  a  REC,  since  these  three  bodies  have  the 
same  data  format  (four  sets  of  triplet  data).  Subroutine  SEE3  is  called  for 
each  set  of  triplet  data  which  is  to  be  stored  or  located  in  the  ASTER  array; 
SEE3  returns  with  IWH,  the  location  (pointer)  of  the  triplet  data.  These 
pointers  are  packed,  two  pointers  per  word,  in  the  MASTER  array.  LDATA  is  then 
incremented  for  the  next  set  of  pointers  to  be  stored  in  the  MASTER  array. 

The  statements 


C 

C?8  Pointer  FORMAT  SPH  /  V  /  R  t 
t 

3?0  CALL  SE€3< UH.ASTER, MASTER, FX (It ,FX<2) ,FX(3) tLB0T , LDATA , NOG .LSI  I 
MASTER (L0ATA) »Iwh*1  15 
L51  *1 

CALL  SEE3<IwH.A5TER|MASTEH,FXU>,FX(4)tFX{4>  tLBOT,H>ATA'NoO,LSi  I 
LSI  "0 

master (loata) *master <loaTa>  *Imh 

LDAT  A"LDaT  A  + 1 
GOTO  360 
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are  used  to  store  in  the  ASTER  array  the  one  set  of  triplet  data  (vertex) 
and  the  one  scalar  value  (radius)  for  the  present  descriptor  if  the  body  is 
a  sphere.  Subroutine  SEE3  is  called  to  store  or  locate  the  triplet  data 
(LSI  =  0)  in  the  ASTER  array;  SEE3  returns  with  IWH,  the  location  (pointer) 
of  the  triplet  data,  which  is  packed  in  the  MASTER  array.  LSI  is  set  to  one, 
and  Subroutine  SEE3  is  again  called  to  store  or  locate  the  scalar  value  (radius) 
in  the  ASTER  array.  SEE3  returns  with  IWH,  the  location  (pointer)  of  the 
radius.  LSI  is  then  initialized  to  zero,  the  pointer  to  the  radius  is  packed 
into  the  same  word  as  the  pointer  to  the  vertex  coordinates,  and  LDATA  is  incre¬ 
mented  for  the  next  set  of  pointers  to  be  stored  in  the  MASTER  array. 

The  statements 


C?9  POINTER  FORMAT  RCC  /  V  /  H  /  ELL  /  FI  /  F2  / 

c  ft  R  /  /  f  L  t 

C  330  CALL  SEE3(TWM. ASTER. "ASTER. FUJI) tFX(2),FK(3)*LB0T,L0ATA.N0Q. LSI) 

CALLESeE3DMH.a5TER»M4STER»FX  1*1  tFX tj)  .FXI6)  . LBGT.LOATA.NDQ.LSD 

MASTER  (LDATA»MMASTER(LOATAt*!tlH 

CaU1SEE3  <IWM.  aSTe».  MASTER  .F*<7».FX  <7*  .FX<t)  .LBOT.LOaTa.NdQ.LSD 
LSI-0 

MASTER  (LOATA*D*IttM 
LOATA«tOATA*Z 
GO  TO  360 


are  used  to  store  in  the  ASTER  array  the  two  sets  of  triplet  data  and  the  one 
scalar  value  for  the  present  descriptor  if  the  body  is  an  RCC  or  an  ELL,  since 
these  two  bodies  have  the  same  data  format  (two  sets  of  triplet  data  followed 
by  one  scalar  value).  The  operation  of  these  statements  is  similar  to  that 
described  for  the  sphere. 

The  statements 


C 

CIO 

c 

c 

3*0 


POINTER  FORMAT  TRC  t  *  t  M  / 

/  Rs  /  RT  / 


TOR  /  V  /  N  / 
/  Rj  /  H2  / 


call  SEEat i wh.aster. master »fx id tFxtji  .fxo)  .lBot.ldata.ndq.lsd 

MASTERfLDftTA)  -IwH-115  _  _ 

CALL  SEES fIBH, ASTER. MASTER. FX<a».FX»5(,FX (6) tLBOT.LOATA.NDQ. LSD 
master (ldata> "Master tL0ATA»*iRM 

CALLlSEE3( IRM, ASTER. MASTERtFX 17) iFX(T*»FX(T) »LB0T .LDATA.NoQ.LSD 

call^seedirn*  aster*  master.fx  »FX  <8>  tFX  ie>  »lbot  .loata.ndq.lsi  ) 

LSl-0 

MASTER  (LOATA*  1  >  -MASTER  (L0ATA*D  **'*« 

LOATa-L0ATa*2 
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are  used  to  store  in  the  ASTER  array  the  two  sets  of  triplet  data  and  the  two 
scalar  values  for  the  present  descriptor  if  the  body  is  a  TRC  or  a  TOR,  since 
these  two  bodies  have  the  same  data  format  (two  sets  of  triplet  data  followed 
by  two  scalar  values).  The  operation  of  these  statements  is  similar  to  that 
described  for  the  sphere. 

The  statements 

IF (ITYPE.EQ.IO)LDaTA-LOATaO 

an  to  360 


are  used  to  test  the  present  descriptor  to  determine  if  it  is  a  torus.  If 
it  is,  three  additional  words  are  reserved  for  later  use  by  Subroutine  TOR 
where  the  number  of  intersects  for  a  given  ray  and  the  distance  to  the  third 
and  fourth  intersects  (if  they  occur)  will  be  stored. 

The  statements 


C 

C11  POINTER  format  TEC  /  V  /  h  / 

/  N  /  A  / 
/  *1  /  «2  / 
/  /  RR  / 


350  CALL  5EE3 (IwH»A5TER»Wa5TER»F*(1 ) *FX (g) .FX (3) ilBOT .lOATA .NOO.LSl > 
master iloata) »iwm*i is 

CALL  SEE 3 ( IWM, ASTER. MASTER .FX U> »F X (5) .FX (6) »L0OT .LOATA ,N00 .LSI ) 

master (loat a) -master  iloaTa»*iwm 

CALL  SEE31IMM, ASTER. MASTER. FXt7).FX(8»  »FX<9) aLBQT .LOATA . NDQ.LSl ) 
MASTER  (LOATA-D-UM-1 15 

CALL  SEE3UWM, ASTER. Master. FXfiot  • 

1  LB0T.LDATA.N00.LSiI 

master (loaTa*i)«maSTeb(loat a* i) *i*h 

LS I  ■  1 

CALL  SEE3lIrfM.ASTER.MASTEHtFX(13)  .FX<13), 

j  LB0T.lDATAiNDQ*L$i> 

MaSTER<L0ATa*2)«I*M*U5 

call  sees ( i wh. aster. master. fx»1*».fx(14».fx<i*) , 

1  LBOT.LOATA.NDQ.LSi) 

MASTER (lDATa*2» -Master tLDATA*2)*IFH 

CALL  SCE3  1 1 IXH.  ASTER. MASTER. FX<  15). FX(1S»,FX(  15)* 

1  LB0T.LDaTa.N0Q.L51) 

LSi-0 

MASTER (LDATA*3) -I MH 

LOATA-LDXTa** 
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are  used  to  store  in  the  ASTER  array  four  sets  of  triplet  data  followed  by 
three  scalar  values  for  the  present  descriptor  if  the  body  is  a  TEC.  The 
operation  of  these  statements  is  similar  to  that  described  for  the  sphere. 

The  statements 


C 

032  CHECK  IF  ANY  MORE  ROOM  FOR  SOLID  OaT* 
C 

360  IF  ILDATA.LT >NDQ| GOTO  3?0 

WRITE  (6»9i7>LDaTa*L80T • NDQ 
STOP 

370  CONTINUE 


are  used  to  determine  if  the  LDATA  pointer  is  referencing  a  location  less  than 
the  NDQ  (10,000)  limit.  If  the  location  is  less  than  NDQ,  the  program  loops  to 
process  the  next  body;  if  it  is  equal  to  or  greater  than  NDQ,  an  error  message 
is  printed  out  with  pertinent  program  information.  The  program  is  then  termi¬ 
nated  by  the  STOP  statement. 

The  statements 


WRITE  ( 6  >9 1 8) 

WRITE ( a  *94? ) ITY  »NBO0 

WRITE  t6t945)t-BASE»LRPPD»LA8UT,L8UDT»LBOD«L0ATA.L8OT»LSCAL»LTRIP.N 
ADO 


are  used  to  output  three  messages  when  the  DO  loop  has  completed  entering  and 
processing  all  of  the  body  data.  The  first  output  indicates  that  all  of  the 
body  data  has  been  processed.  The  second  output  gives  the  number  of  times 
each  body  was  used  in  the  target  description.  The  third  output  gives  the 
starting  location  of  the  major  pointers  used  in  the  program. 

The  statements 


C 

C33  TRANSFER  ASTER (L80T  TO  NDQ)  TO  aSTE«<LDATA  TO  LDATA*LSUb) 

C 

L0«L0ATA-1 

LSU8-LR0T-LD-1 

are  used  to  set  LD  to  the  last  word  in  the  section  that  contains  pointers  and 
to  compute  the  number  of  unused  words  between  the  last  pointer  word  and  the 
first  body  data  word  at  LBOT. 

The  statements 
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0«  375  I*L0OT'NOQ 
kSTERILOAT*ta«$TCR<I> 
L0ATA«L0ATa*1 
375  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  shift  all  of  the  data  between  the  loca¬ 
tion  at  LBOT  and  the  end  of  the  MASTER-ASTER  array  to  the  locations  beginning 
at  the  next  available  location  after  the  pointer  data. 

The  statement 
C 

Cl4  UNPACK  POINTER  WORDS  AND  RECOMPUTE  POINTERS  To 
C  COMPENSATE  FOR  transfer 

c 

K«LB00Y*3* (NRPP*NBQDTj 

is  used  to  compute  the  first  location  of  the  pointer  data.  The  last  location, 
LD,  of  the  pointer  data  was  previously  computed.  These  values  will  be  used  as 
the  lower  and  upper  limits,  respectively,  in  the  following  DO  loop. 

The  statements 


oo  390  1"K»L0 
CALL  UN2(ItIl«l2> 
IFtll.NE.OI  U»I1-lSu8 
TF(IZ.NE.o»I2"12-LSUB 
MASTERn)-n*Il5*IZ 

390  continue 


consist  of  a  DO  loop  which  unpacks  each  word  containing  two  pointers  and  recom¬ 
putes  the  value  of  the  pointers  by  subtracting  LSUB,  the  number  of  positions 
the  body  data  was  previously  transferred.  The  two  pointers  are  packed  and 
stored  into  the  same  location. 

The  statements 

C 

C35  REGION  STORAGE 
C 

WRITE  (6*920) 

N-0 

J»0 

LRE9D"LDATa 

LOATA»L0ATa*nRMiX 

lregl-lOata 


are  used  to  output  the  message  REGION  COMBINATION  DATA;  initialize  two  counters, 
N  and  J,  to  zero;  and  assign  the  value  of  the  next  available  location  after  the 
body  data  to  variable  LREGD.  The  LREGD  section  will  contain  pointers  to  the 
region  data.  LDATA  and  LREGL  are  assigned  the  value  of  the  next  location  fol¬ 
lowing  the  last  word  of  region  pointers,  and  will  contain  region  data  (operator 
and  body  number). 
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The  statement 

C 

Cl6  ENTER  REGION  OATA 
C 

400  REAO (5,921 ) IR*  1 1 A  c  1 »  »1N(I> 

is  used  to  enter  data  on  a  card  containing  the  region  number,  the  logical 
operator,  and  the  bodies  that  comprise  the  region. 

The  statements 

C3?  CHECK  VALlOITY  Of  REGION  OATA 
C  00  410  1*1  »9 

If  <IAB$<IN<1)  ).LE,N0OOY*NRRP)GOTO  41  o 

WRITE  <6»922>IR*I 

J*JM 

410  CONTINUE 

consist  of  a  DO  loop  which  is  used  to  test  the  absolute  value  of  each  body 
number  in  the  region  to  determine  if  it  is  a  valid  number  (not  greater  than 
the  number  of  bodies  plus  the  number  of  RPP's  used  to  describe  the  geometry). 

If  a  body  number  is  determined  to  be  invalid,  an  error  message  is  printed  out 
along  with  the  region  number  and  the  number  of  the  field  on  the  card  where 
the  error  occurs.  A  counter  for  the  number  of  invalid  body  numbers  is 
incremented  by  one . 

The  statement 

ciG  p»ck^*nd^store  number  of  eooic*  I*  Region  / 

c 

If  IIR1440»420«421 

is  used  to  test  the  region  number.  If  it  is  negative  (-1),  all  regions  have 
been  entered.  If  the  region  number  is  zero,  the  present  card  is  a  continuation 
of  the  last  card  entered  and  contains  more  logical  operators  and  bodies  that 
compose  the  present  region.  If  the  region  number  is  positive,  the  card  con¬ 
tains  data  for  a  new  region. 

The  statements 


420  f RITE  I6««23HUUI  tINin»l«l»9J 
GOTO  *30 
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are  executed  if  the  present  card  input  contains  additional  information  for 
the  present  region*  The  additional  logical  operators  and  the  bodies  that 
comprise  the  region  are  written  out.  The  program  then  branches  around  the 
section  for  processing  a  new  region  card* 

The  statements 


4?1  n«n*1 

*01  T£  f 6 * 9 2 4 )  JR,  U*<I) 
maSTER<M)»lq4T4*I 


are  executed  whenever  the  card  entered  contains  a  new  region,  N,  the  counter 
for  counting  the  number  of  regions >  is  incremented  by  one,  and  the  data  on 
the  card  is  written  out.  The  pointer  to  the  region  data  for  the  new  region 
is  then  computed  and  stored. 


The  statement 
C 

C*9  CHECK  AND  CONVERT  OPERATOR  TO  NUMERICAL  VALUE 
C 

430  DO  435  I*Lt9 

is  used  to  begin  a  DO  loop  which  will  convert  the  logical  operator  to  a 
number  and  store  it  and  the  body  number  in  the  region  data  section. 


The  statements 


00  431 

IF  ( I A ( 1 ) »EQ • ! AA  tKl I 0OTO  432 
431  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  determine  the  kind  of  logical  operator 
that  precedes  the  body  number. 

The  statements 


WRITE  (4  *  9?5 > I A ( 1 1 • 1 
STOP 


are  executed  if  no  valid  logical  operator  was  found.  These  statements  cause 
an  error  message  to  be  printed  out  and  the  program  to  terminate* 
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The  statements 


*32 

TMlNllH  *33**35*43* 

are  executed  when  a  valid  logical  operator  has  been  found;  they  are  used  to 
change  the  logical  operator  to  either  a  one  or  four.  The  body  number  is  then 
tested  for  a  zero,  positive,  or  negative  value. 

The  statements 


*33  I*m»*MAU> 
tN 1 1 ) ""IN ( 1 1 


are  executed  when  the  body  number  is  negative  and  are  used  to  add  four  to  the 
body  operator  so  that  for  a  negative  body  number,  the  body  operator  takes  on 
a  value  of  eight.  For  a  positive  body  number,  the  body  operator  takes  on  a 
value  of  one  or  four,  with  one  representing  an  OR  condition  as  well  as  a  (+) 
condition . 

The  statements 

C*0  PACK  AND  STORE  REGION  OAT 4  /  OPERATOR  /  BODY  NUMBER  / 

C 

434  MASTER  U.OATA)«IA  I  n*115*lN(I) 
t_OAT  A"LOAT  A  *  1 
master (M)mmaSTER (Ml *1 


are  used  to  store  the  operator  and  body  number  in  the  region  data  section  and 
to  increment  to  the  next  location  in  the  region  data  section  for  the  next 
operator  and  body  number.  The  body  count  for  the  present  region  is  incre¬ 
mented  by  one  and  stored  within  the  same  word  as  the  pointer  to  the  present 
region  data. 

The  statements 


IF(LOATA,LT.nOO>GOTO  435 

MRITE  (6!927>t-DATA*NDQ 
STOP 

435  CONTINUE 
GOTO  400 
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are  used  to  determine  if  there  is  more  space  available  in  the  ASTER  array 
for  region  data.  If  the  end  of  the  ASTER  array  has  been  reached,  a  message 
is  printed  out  stating  that  there  is  no  more  room  for  region  data.  The 
program  is  then  terminated  by  the  STOP  statement.  If  more  storage  space  is 
available,  control  is  transferred  to  continue  to  enter  the  next  of  the  nine 
fields  of  data  from  the  card.  If  all  nine  fields  of  information  have  already 
been  processed,  control  is  transferred  to  enter  the  next  card. 

The  statements 


C 

C*1  END  REGION  READ  -  TEST  NUMBER  OF  REGIONS 
C 

♦40  IF(N.GC.NRmaX)GOTO  ♦♦! 

WRITE  (6*9?6) IR 
STOP 


are  executed  when  all  of  the  region  data  cards  have  been  processed.  These 
statements  are  therefore  used  to  determine  if  the  number  of  regions  entered 
equals  the  number  of  regions  in  the  target  geometry.  If  the  number  of  regions 
processed  is  less  than  expected,  an  error  message  is  printed  out,  and  the  STOP 
statement  terminates  the  program. 

The  statements 


♦♦1  Ip ( J.L6 • 0) GOTO  442 
WRITE  (6.9*1) 

STOP 

♦♦?  WRITE  (6.928) 


are  used  to  test  the  invalid  body  counter  to  determine  if  any  invalid  body 
numbers  were  encountered.  If  invalid  body  numbers  were  encountered,  an  error 
message  is  printed  out,  and  the  STOP  statement  terminates  the  program.  If  no 
invalid  body  numbers  were  encoutnered,  the  message  FINISH  READING  REGION  DATA 
is  printed  out. 

The  statements 


C 

C*2 


TEST  FOR  REGION  CHECK  OPTION.  CHECK 
(ERROR  IF  ANY  POINT  CAN  BE  IN  MORE 


REGION  data  If  not  ^£R0 
than  ONE  REGION) 


IF  *  IRCHEK.E0.N0) GOTO  500 
WRITE  (6.937) 

LL»0 

MIS«o 
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are  used  to  determine  if  the  validity  of  the  region  data  is  to  be  checked. 

If  no  check  is  to  be  made,  the  program  transfers  to  compute  the  entering  and 
leaving  tables.  If  a  check  is  to  be  performed,  a  line  is  skipped  and  counters 
LL  and  MIS  are  initialized  to  zero. 

The  statements 


00  456  IaitNRMAX 
JJ»IM 


are  used  to  begin  an  overall  DO  loop  which  will  compare  each  of  the  operators 
and  body  numbers  of  one  region  with  the  operators  and  body  numbers  of  all 
other  regions.  JJ  is  used  as  an  index  to  begin  comparisons  with  the  following 
region. 

The  statement 

00  455  JaJJtNRMAX 

is  used  to  begin  a  DO  loop  which  will  step  through  each  of  the  regions  for 
comparison  with  the  preceding  region. 

The  statements 


kri-lbegom-i 

c»ll  un?<kri.loci.numi> 

KRjatREG0*J-l 

CALL  UR? tKRj*L0CJ*NUMj) 


are  used  to  compute  the  location  of  the  two  pointer  words  for  the  two  regions 
to  be  compared;  and  to  unpack  the  pointers  to  the  two  regions  and  the 
number  of  bodies  in  each  region. 

The  statement 


IE (nUMI.OE.nUMJ)OOTO  450 
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is  used  to  compare  the  number  of  bodies  in  each  of  two  of  the  regions  to 
be  compared  to  determine  the  smaller  region,  since  each  operator  and  body 
of  the  smaller  region  will  be  compared  with  all  of  the  operators  and  bodies 
of  the  larger  region. 

The  statements 

T0"NlWi 
1 I-NUMj 
00T0  451 


are  executed  if  the  first  region  is  the  smaller  and  are  used  to  assign  the 
upper  limits  of  the  two  following  E)0  loops  so  that  each  item  of  the  smaller 
region  is  tested  against  each  item  of  the  larger  region. 

The  statements 


450  T0»NUMJ 
T 1-nUMj 
L*L0d 
L0C1»L0CJ 
L<lCd»L 


are  executed  if  the  second  region  is  the  smaller  and  are  used  to  switch  the 
pointers  and  assign  the  upper  limits  of  the  two  following  DO  loops  so  that 
each  item  of  the  smaller  region  is  tested  against  each  item  of  the  larger 
region. 

The  statements 


C 

451  00  453  K0*1 *10 
KLK«L0eI*K0-l 
C4LL  UN2 tKLKtIOPO.NSO) 
00  452 

KLK"L0CJ*K1-1 
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Caul  UN?<KLKtioPi*Nai) 

IF ( 10 PC  *  NE  *  I OP I J  00 TO  *52 
IF  <  N90  *NE*NBl  ) GOTO  *52 

QOTn  453 
45?  CONTINUE 
451  CONTINUE 


consist  of  an  outer  DO  loop  and  a  nested  DO  loop  which  are  used  to  perform 
the  actual  comparisons  of  each  operator  and  body  of  the  two  regions.  To 
accomplish  this,  the  locations  in  each  of  the  two  regions  of  the  packed  oper¬ 
ator  and  body  number  are  computed  and  unpacked.  The  operators  of  the  bodies 
in  the  two  regions  are  compared;  if  they  are  the  same,  the  body  numbers  are 
compared*  If  the  operator  and  body  number  of  the  two  regions  are  identical, 
the  MIS  counter  is  incremented  by  one*  Looping  continues  until  each  operator 
and  body  number  of  the  smaller  region  have  been  compared  with  each  operator 
and  body  number  of  the  larger  region* 

The  statements 


IF <M|3.NE,II iGOTO  454 
WRIT i  (6  +  929*  3*1 
LL*LLM 
464  M1S«0 


455  CONTINUE 


are  used  to  compare  the  count  in  the  MIS  counter  with  the  number  of  bodies  in 
the  smaller  region*  If  they  are  equal,  there  is  an  area  in  the  larger  region 
that  is  identical  to  an  area  in  the  smaller  region,  indicating  that  a  given 
point  could  be  in  more  than  one  region*  Since  this  is  an  illegal  condition, 
an  error  message  with  pertinent  data  is  printed  out,  and  the  LL  counter  is 
incremented  by  one.  If  counter  MIS  and  the  number  of  bodies  in  the  smaller 
region  are  unequal,  there  is  no  area  in  the  larger  region  that  is  identical 
to  the  smaller  region*  Therefore,  the  MIS  counter  is  initialized  to  zero,  and 
control  is  returned  to  index  to  the  next  successive  region. 

The  statements 


WRITE  <6,930*1 
456  CONTINUE 
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are  used  to  print  out  a  message  each  time  a  region  has  been  compared  with  all 
of  the  remaining  regions.  The  program  is  then  indexed  to  the  next  region. 

The  statements 

IF (LL ■ flT  1 0  I  STOP 


are  used  to  determine  if  a  given  point  can  be  in  more  than  one  region  by 
interrogating  the  count  in  counter  LL  for  a  greater  than  2ero  condition.  If 
a  point  can  be  more  than  one  region,  the  program  is  terminated  by  the  STOP 
statement.  If  the  count  is  zero,  the  program  continues  after  the  WRITE  state¬ 
ment  causes  one  line  to  be  skipped. 

The  statements 


C 

C43  PREPARE  REGION  LEAVE  TABLE  *N0  REGION  ENTER  UBLE 

C 

500  15—1 

NN"NB0D V*NRPP 
LENLV»LOATA 


are  used  to  initialize  the  variable  IS  to  -1  for  computing  the  region  leaving 
table;  +1  is  used  for  computing  the  region  entering  table.  The  statements 
also  compute  NN,  the  total  number  of  bodies  and  RPP's  used  to  describe  the 
geometry  for  use  as  the  upper  limit  of  a  DO  loop;  and  initialize  variable 
LENLV  to  the  next  available  location  after  the  region  operator/body  number 
data. 


The  statement 

DO  590 


is  used  to  begin  a  two-loop  DO  loop  which  is  used  to  compute  and  store  the 
region  leaving  table  (IS  =  -1)  and  to  compute  and  store  the  region  entering 
table  (IS  =  +1). 

The  statement 


QO  580  I«1»NN 
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is  used  to  begin  a  DO  loop  which  will  compute  and  store  the  region  leaving 
or  entering  table  and  pointers  for  each  body  used  to  describe  the  target 
geometry . 

The  statement 


m»L0OOY*3*  < 1-1  > 


is  used  to  compute  the  location  of  the  pointer  word  in  the  LBODY  section  where 
the  enter/leave  region  pointers  and  the  pointers  to  the  number  of  regions  in 
the  table  are  to  be  packed  and  stored.  The  LBODY  section  requires  three  words 
per  body.  The  first  word  contains  the  body  type  and  the  location  of  the  body 
pointers.  The  data  for  the  first  word  was  computed,  packed,  and  stored  ear¬ 
lier  in  this  subroutine.  The  second  word  contains  the  pointers  to  the  region 
enter  table  and  the  region  leave  table.  The  third  word  contains  pointers  to 
the  number  of  regions  in  the  region  enter  table  and  the  number  of  regions  in 
the  region  leave  table. 

The  statements 


1F<IS.GE.O>00  TO  510 
MASTER  <l“*l  >  "MASTER  (M*  \  )  *1.0ATA 
00  TO  520 

sio  master <m*i> "Master cm* imu>au*i is 


are  used  to  determine  if  the  pointer  to  the  region  leaving  table  (IS  =  -1)  or 
the  pointer  to  the  region  entering  table  (IS  *  +1)  is  to  be  stored.  If  the 
region  leaving  table  pointer  is  to  be  stored,  it  is  stored  in  the  last  15  bits 
of  the  second  body  pointer  word.  If  the  region  entering  table  pointer  is  to 
be  stored,  it  is  stored  in  the  15  bits  before  the  last  15  bits  of  the  second 
body  pointer  word. 

The  statement 


520  DO  STO  J»ltNRMAX 

is  used  to  begin  a  DO  loop  which  will  compute  the  leaving  or  entering  region 
table  and  the  number  of  regions  in  the  entering  or  leaving  table. 
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The  statements 


ITEMP»lH100*J-1 
C*U  UN2tITEMP»L0c*MC) 

CALL  UN2<L<1C»I0P«0UM1 

are  used  to  compute  the  location  of  the  pointer  and  number  of  bodies  for  the 
present  region  number  and  to  unpack  the  number  of  bodies  in  the  region  and 
the  operator  of  the  first  body  in  the  region. 

The  statement 

no  N«i»hc 

is  used  to  begin  a  DO  loop  which  will  perform  the  actual  testing  of  all  of  the 
bodies  in  each  region,  compute  the  leaving  or  entering  region  table,  and  com¬ 
pute  the  number  of  regions  in  the  table. 

The  statements 


CALL  UN?{MM,IOPEPtNUM) 

are  used  to  locate  and  unpack  each  packed  operator/body  number  in  the  region. 
The  statement 

TF<MUM.ne«IH)0T0  56Q- 


is  used  to  compare  the  test  body  number  against  the  body  number  established 
by  the  DO  580  statement.  If  they  do  not  match,  the  program  loops  to  consider 
the  next  test  body  in  the  present  region.  If  no  match  is  found  in  the  present 
region,  the  bodies  of  the  following  regions  are  compared  until  a  match  is 
found. 


The  statements 


IF t!OP,EQ.i,OR,IOP.€0.5»OOTO  5*0 
IF<I0PcR.QT.*)Q0T0  530 
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are  executed  when  the  body  number  established  by  the  DO  580  statement  has 
been  located  in  the  region  data.  These  statements  are  used  to  determine 
if  the  logical  operator  of  the  first  body  in  the  region  where  the  matching 
body  number  was  located  is  an  (OR)  operator.  If  it  is  not  an  (OR)  operator, 
a  test  is  made  to  determine  if  the  operator  of  the  test  body  number  is  a  (-). 

The  statement 

IF (1 5* l >  560  *550  #560 


is  executed  when  the  logical  operator  of  the  first  body  in  the  region  contain¬ 
ing  the  test  body  number  is  not  an  (OR)  operator  and  the  test  body  number  has 
a  (+)  operator.  This  statement  tests  to  determine  whether  the  entering  or 
leaving  table  is  being  prepared.  If  the  leaving  table  is  being  prepared,  the 
present  region  cannot  be  a  region  the  ray  might  be  in.  Therefore,  the  program 
loops  to  determine  if  the  test  body  number  is  used  elsewhere.  If  the  entering 
table  is  being  prepared,  the  present  region  can  be  a  region  the  ray  might  be  in. 

The  statement 

530  TF(ISM)560t§51*560 

is  executed  when  the  logical  operator  of  the  first  body  in  the  region  containing 
the  test  body  number  is  not  an  (OR)  operator  and  the  test  body  number  has  a  (-) 
operator.  This  statement  tests  to  determine  whether  the  entering  or  leaving 
table  is  being  prepared.  If  the  entering  table  is  being  prepared,  the  present 
region  cannot  be  a  region  the  ray  might  be  in.  Therefore,  the  program  loops  to 
determine  if  the  test  body  number  is  used  elsewhere.  If  the  leaving  table  is 
being  prepared,  the  present  region  can  be  a  region  the  ray  might  be  in. 

The  statement 


540  IF (IS#lT*0>GOTO  551 


is  executed  when  the  logical  operator  of  the  first  body  in  the  region  contain¬ 
ing  the  present  body  number  is  an  (OR)  operator.  This  statement  is  used  to 
determine  if  the  entering  table  or  leaving  table  is  being  prepared  and  to 
branch  to  increment  the  count  of  the  regions  in  either  the  entering  table  or 
leaving  table. 
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The  statements 


556  m*STER|m*2).hasTERIM«2)*Ii5 

00  TO  552 

551  MASTER 1M*2) "MASTER  IM*21 ♦ I 


are  used  to  increment  the  count  of  the  number  of  regions  in  the  leaving  table 
(or  entering  table)  for  the  specific  body  being  considered.  The  count  of  the 
number  of  regions  in  the  leaving  table  is  located  in  the  last  15  bits  of  the 
third  word  of  the  body  pointer  word  set.  The  count  for  the  entering  table  is 
located  in  the  15  bits  previous  to  the  last  15  bits  in  the  same  word. 

The  statements 


552  M*5TCR(LDAT*I»J 
|_0ATA«l.QAT*  +  1 


are  used  to  store  the  region  number  in  the  leaving  table  (or  entering  table) 
and  to  Index  to  the  next  location. 

The  statements 


IF<LDATA.UT,NOQ)0OTO  5T0 
WRITE  (6*931 ) LO AT  A  *ND9*NNM* I 
STOP 

56#  CONTINUE 
576  CONTINUE 
506  CONTINUE 


are  used  to  determine  if  all  of  the  storage  in  the  MASTER-ASTER  array  has 
been  used.  If  it  has,  a  message  is  printed  out  along  with  pertinent  program 
variables  and  the  program  is  terminated  by  the  STOP  statement.  If  storage 
is  still  available,  the  program  is  continued. 
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The  statements 


WRITE  ( 6f 930) HMM 
I3»IS*2 
590  CONTINUE 


are  executed  whenever  the  leaving  table  or  entering  table  has  been  completed  * 

A  message  is  printed  out*  the  variable  IS  is  set  to  +1  if  the  leaving  table 
has  just  been  completed,  and  the  program  returns  to  prepare  the  entering  table. 
If  the  entering  table  has  just  been  completed ,  the  variable  IS  is  set  to  +3* 
and  the  program  continues  to  the  next  sect  loti. 

The  statements 


C 

C*4 


c 

C 


RESERVE  SP*CE  POP  PIN  STORAGE.  POUT  STORAGE*  AND 
SUBROUTINE  31  TEMP0R*aY  STORAGE 


li»loata-i 

KJN«NPPP*nB00V 

LR!N*LDaTa*i 

lqot«lpin*nn 

LTO»|_ROT*NN 

LE3EOM«LlO*NN 

WRITE  (6.9321  LEGCO* 

WRITE  l6*919>*.fiE30»CHE6L*l.£Pl.V 


»l»PlN*LBOT»tlO*LEOEO« 


are  used  to  assign  to  variable  LI  the  last  location  used  for  the  region 
enter/ leave  table;  to  assign  to  variable  NN  the  total  number  of  geometric 
shapes  used  to  describe  the  target  geometry;  to  assign  to  variable  LRIN  the 
beginning  location  of  the  entry  intersect  data  for  a  given  ray;  to  assign 
to  variable  LROT  the  beginning  location  of  the  exit  intersect  data  for  a 
given  ray;  to  assign  to  variable  L10  the  beginning  location  of  a  temporary 
storage  area  reserved  for  use  by  Subroutine  Gl;  and  to  assign  to  variable 
LEGEOM  the  last  plus  one  location  of  the  geometry  data.  One  word  of  storage 
for  each  geometric  shape  used  to  describe  the  target  geometry  is  reserved 
for  the  entry  intersect  data,  the  exit  intersect  data,  and  the  Subroutine  Gl 
temporary  storage  area.  The  total  storage  for  the  geometry  data  is  then 
printed  out.  In  addition,  the  beginning  location  of  the  region  data  pointer 
section,  LREGD;  the  beginning  location  of  the  region  data  section ,  LREGL; 
the  beginning  location  of  the  enter/ leave  table,  LENLV ;  the  beginning  locations 
of  the  enter  and  exit  intersect  data,  LRIN  and  LROT;  the  beginning  location  of 
the  temporary  storage  section  for  Subroutine  Gl,  LIO;  and  the  last  plus  one 
location  of  the  geometry  data,  LEGEOM,  are  all  printed  out  in  table  format. 
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The  statements 


£*5  TEST  REGION  EnTER/LEAVE  TABLE  PRINT  OPTION 

C 

IP (IENTlV.EQ.no> return 
#RITE  <6*9*6) 

NHNRbNBODY  *nrpp 


are  used  to  determine  if  the  region  enter  and  leave  tables  are  to  be  printed 
out  If  not  (IENTLV  =  0),  program  control  is  returned  to  the  MAIN  program. 

ENTER^E^r^Lr-113151^  T  ^  ^  Written  °Ut  (IENTLV  “  D  .  the  heading 
ENTER  LEAVE  TABLE  is  printed  out,  and  the  number  of  geometric  shapes  used 

to  describe  the  target  geometry  is  assigned  to  variable  NBNR  for  use  as  the 
upper  limit  in  the  following  DO  loop. 


The  statements 


C 

c*6  print  out  region  enter/leave  tables 


00  600  N"1 tNSNR 


L0C»LS0DY*3*  <N-t ) 
L0c«L0cm 

CALL  UN2IL0C.LENT.LEAV) 
LOc«L0c*l 


C*Lt  UN? (L0C . NENT . NE AV ) 

Jl  "LENT 

J2"LENT*NENT»i 

J1-LEaVA,933> N*J*,J2* ,m*StER 4K» • 
J2»LEAV*NEAV-I 

VRITE  (6.93*) N. Ji (MASTER (K ) 

6oo  CONTINUE 


“  “  u°°P  1S  “S6d  “  Prlnt  °Ut  the  “t«/laave  tables.  This 

nusfce  T  <  ^  C°mPUtln8  the  polnt<srsl  the  enter/leave  tables  and  the 

number  of  regions  In  each.  The  tables  for  each  geometric  shape  used  to 
describe  the  target  geometry  are  then  printed  out. 


The  statements 


C*7  TEST  MASTER-ASTER  ARRAY  PRINT  OPTION 

IF (IPRIN.EO.0 1  RETURN 
riRITE  (6*9351 


are  used  to  determine  if  the  entire  MASTER-ASTER  array  to  the 
enter/leave  tables  is  to  be  printed  out.  If  not  (IPRIN  =  0) , 


end  of  the 
program  control 
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is  returned  to  the  MAIN  program.  If  the  MASTER-ASTER  array  is  to  be  printed 
out  (IPRIN  =  1),  the  message  BEGIN  ARRAY  OUTPUT  is  printed  out. 

The  statements 


C48  PRINT  OUT  MASTER-ASTER  ARRAY  TO  tNQ  Of  REiilQN  ENT£H/LE A YE  TABLES 
C  00  620  K«LBASE*L1»3 

IK»K 

T«2-K*2 

M»0 

00  610  I»IK.IK2 

M«M4J 

CALL  UNZ(I*I1'12> 

NOl t  M ) • 1 1 

NO 2 tM) «12 
04<MI»aSTERU) 

NO0tRJ»I 

610  WRITENl(l*936>  INOo  t L >  »N0l  (L>  tNOj  IL)  (L)  'L"l  *  3> 

620  CONTINUE 
RETURN 

eno 

c 

c 


are  used  to  write  out  the  MASTER-ASTER  array  in  groups  of  three  words  at  a 
time  beginning  at  location  LBASE ,  the  first  word  of  the  MASTER-ASTER  array, 
and  continuing  through  the  last  word  of  the  region  enter/leave  tables. 

Each  total  word  is  written  out  as  well  as  the  unpacked  format  of  the  word. 
Therefore,  some  of  the  output  will  be  meaningless,  since  not  every  word  in 
the  MASTER-ASTER  array  is  packed.  When  the  output  of  the  MASTER- ASTER  array 
has  been  completed,  program  control  returns  to  the  MAIN  program. 
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Subroutine  RPPIN(LAR) 


Subroutine  RPPIN  is  called  by  Subroutine  GEN I  during  the  geometry  input 
and  processing  phase  of  the  MAGIC  program  if  RPP  data  is  to  be  entered.  This 
subroutine  enters  the  RPP  data,  computes  the  number  of  abutting  RPP's,  com¬ 
putes  the  location  of  those  abutting  RPP 1 s ,  computes  the  location  of  the 
boundary  coordinate  for  each  side  of  each  RPP  in  the  target  geometry,  and 
eliminates  redundant  boundary  coordinates  in  the  RPP  data.  The  validity  of 
the  RPP  data  is  checked  if  more  than  one  RPP  is  used  to  describe  the  target 
geometry. 

The  statements 

DIMENSION  Xtft) 

DIMENSION  M*STER( 10000) 

are  used  to  dimension  the  MASTER  array  for  10,000  words  and  to  dimension  a 
six-element  array,  X,  for  use  in  entering  boundary  data  for  a  given  RPP. 

The  statements 


COMMON  aSTCBUOOOO) 

cnM*ON/GEO*/LBASE»R!N.ROUT.L«I.L«0,KiNF.I£RB»DlST 

cnHMON/l>NcGE**/Nf,pp*NTHlM.wSCALtNt)OoV»NRM*X.LTRIP*LSCA».*LRE6D» 

t  LOa  T A  *LR1N  >LRQT  ,L J0*L0CDA« IIS'  130  tLBOQT  ,N*SC  t  KLOOP 

COMMON /RRPP/tRPP0*L4bUT 


are  used  to  pass  information  into  and  out  of  this  subroutine  via  COMMON 
statements. 

The  statement 
pout Valence (raster, asteri 

is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 

The  statements 


910  FORMAT (6E12.5) 

920  FORMAT!  IBM  7X,fcFiz,5» 

g3fl  FORMAT (1  ho, 27MERROR  In  D£Sc«IPTiON  uF  RPP* I5»5** IoNMJn.G£,MaX» 
9*0  FORMAT (lH0,2TM£RRofi  In  DESCRIPTION  Of  RPP »7** 11 0 • 1 0** I 1 0 > 

9S0  FORMAT (1  OX « 7MSURFACE • T5 1 8* * 2E20 *6) 


are  used  to  format  the  input  data,  the  output  data,  and  output  messages. 
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The  statements 


C 

IF«R«0 

C 

Cl  LfUSE  -  BEGINNING  LOCATION  OF  RPR  POINTERS  RESERVE  \2  POROS/RPP 
c  /  I  /  j  /  I  (POINTER  TO  LIS*  Op  At)OTT iNQ  RPP-S1 

C  /  /  K  /  J  (NUNrtEM  OF  HPP-S  That  abut  THIS  SURFACE) 

c  K  (POINTER  TO  bOUNqjRV  C00#oInATE  FO«  SURFACE* 

c 

!«Lfi*SE«12*NRPP 

c 

C?  L»PPO  -  BEGINNING  LOCATION  OF  RPP  BUONOARV  COORDINATES 
c  That  are  POINTED  TO  9Y  *  (UGASE  ♦  12  *  NBPP> 

C 

lrppom 

are  used  to  initialize  to  zero  the  error  count  of  the  number  of  errors  in 
the  geometry  input;  to  initialize  variable  Nf  the  RPP  number,  to  the  first 
RPP;  and  to  set  variable  I  and  pointer  LRPFD  to  the  beginning  location  of 
the  RPP  data  (boundary  coordinates)  that  follows  the  RPP  pointer  data. 
Pointer  LRPPD  is  saved  for  printout  of  major  pointer  values  by  Subroutine 
GENI. 


The  statements 


C 

Ci  E^.TEH  ROUNOaRy  C0ORt)I*'ATi$  wpp 

C 

\fi  RE  AO  t  G  4  9 1  0  i  (  X  ( J  >  i  J*  1  *  A  } 

*RJTe  !6*92o1«* 


are  used  to  enter  and  write  out  the  six  RPP  bounding  planes.  The  minimum 
and  maximum  values  of  the  RPP  are  entered  into  six- element  array  X  from 
the  six  fields  on  the  input  card. 

The  statements 


C 

C a  VERIFY  MINIMUM  BOUNDARY  CUOMO I NA  rt  u£SS  than  CORRESPONDING 

c  maximum  BOUNDARY  COORDINATE 
c 

on 

ir (x tj> r j*jnGuTn  20 

*RITE  1 6  *  9  3  0 1 H 

STOP 

CONTINUE 


consist  of  a  DO  loop  which  is  used  to  verify  that  the  minimum  value  is  less 
than  the  maximum  value  of  each  of  the  x,  y,  and  z  RPP  bounding  planes.  If 
one  of  the  minimum  values  is  larger  than  the  corresponding  maximum  value, 
an  error  message  is  printed  out,  and  the  program  is  terminated  by  the  STOP 
statement. 
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The  statement 


C 

Cb  STORE  BOUNDARY  COORDINATES  BEGINNInW  at 
C  LOCATION  LBaSE  +  r 12  *  NHPP) 

c 

on  33 


is  used  to  begin  a  DO  loop  which  is  used  to  store  the  boundary  coordinate 
for  each  of  the  RPP  bounding  planes  in  the  LRPPD  section  of  the  RPP  data;  and 
to  store  the  pointer  to  the  boundary  coordinate  in  the  LBASE  section  of  the 
RPP  data* 

The  statements 


I  1*LSaSEM?*nspp 


are  used  to  initialize  variable  II  to  the  beginning  of  the  boundary  coordi¬ 
nate  data  section;  and  to  set  pointer  L  to  the  location  in  LBASE  of  the  side 
and  RPP  being  processed. 

The  statement 


30  TF  t!  l*LT-PGnT0  3t 


is  used  to  determine  if  pointer  II,  which  is  initially  set  to  the  beginning 
location  of  the  boundary  coordinate  data  section,  is  less  than  the  pointer  I, 
which  is  set  to  the  location  where  the  next  boundary  coordinate  is  to  be 
stored.  (Pointer  II  is  used  to  search  through  each  of  the  boundary  coordi¬ 
nates  previously  stored  in  the  ASTER  array  for  a  value  equivalent  to  the 
present  boundary  value  entered  from  the  card  input.  If  an  equivalent  value 
is  located,  the  location,  II,  of  the  value,  but  not  the  new  Input,  is  stored, 
thus  saving  storage  space). 

The  statements 


ASTEfld  >■*( jl 
M4ST£R(t*l ) *] 

m*i 

ROTO  33 


are  executed  when  none  of  the  boundary  coordinates  already  stored  is  found 
to  be  equivalent  to  the  current  value  from  the  card  input.  These  statements 


210 


TN  4565-3-71  Vol  XI 


store  the  input  from  the  card  in  the  ASTER  array  at  the  next  location  in 
the  LRPPD  section,  store  location  pointer  I,  increment  to  the  next  available 
location,  and  continue  with  the  next  boundary. 

The  statement 

C 

c A  CMECK  FOP  AND  ELIMINATE  REDUNDANT  BOunOA«T  COORDINATES 

C 

3)  IF(X(J)  .EQ.ASU»<linc»OTO  32 

is  used  to  compare  the  boundary  coordinate  already  stored  with  the  current 
boundary  from  the  card  input. 

The  statements 

11*11*1 
GOTO  30 


are  executed  when  the  indexed  boundary  coordinate  already  stored  does  not 
equal  the  current  boundary  from  the  card  input.  These  statements  increment 
to  the  next  boundary  coordinate  and  cause  a  branch  to  determine  if  all 
stored  boundary  coordinates  have  been  compared. 

The  statements 


3?  maSTE«(L*1)*1 
33 

are  executed  when  an  already  stored  boundary  coordinate  is  found  that  is 
equivalent  to  the  current  boundary  from  the  card  input.  These  statements 
store  the  pointer  to  the  equivalent  value  and  continue  to  test  the  next 
boundary  coordinate  input. 

The  statements 

If  IN.GE.NRPP100T0  40 
N*  N  ♦  1 

onto  io 

are  used  to  determine  if  all  of  the  RPP  data  cards  have  been  processed  when 
each  of  the  six  fields  from  the  current  RPP  data  card  has  been  processed. 

If  not,  RPP  number  N  is  incremented  by  one,  and  control  is  returned  to  enter 
the  next  RPP  data  card. 
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The  statements 


C 

C?  LABUT  -  BEGINNING  LOCATION  Or  LIST  Of  ABUT  RPP-S  PACKED  2/NOPO 
C  I  POINTS  mere 

C  J  CONTAINS  NUMBER  in  list 

c 

Aft  L»0UT«I 
L  AST* I - j 
(.■LAST 


are  executed  when  all  RPP  data  cards  have  been  entered  and  the  boundary 
coordinate  data,  with  respective  pointers,  has  been  stored  in  the  MASTER- 
ASTER  array.  These  statements  are  used  to  set  the  pointer,  LABUT,  to  the 
next  location  after  the  boundary  coordinate  data,  which  is  the  beginning  of 
the  packed  list  of  abutting  RPP's.  Pointer  LABUT  is  saved  for  printout  of 
major  pointer  values  by  Subroutine  GEN I.  Variables  LAST  and  L  are  set  to 
the  last  location  of  the  boundary  coordinate  data. 

The  statements 


C 

C«  SEARCH  FOR  ABUTTING  RPP-S  TO  SURFACE  J  OF  RPP  I 

C 

DO  57  I*I«NRPP 
no  57  NM.ft 


are  used  to  begin  DO  loops  which  will  determine  the  abutting  RPP's  for  each 

Clod  iftf  rtnrtl  DTltl  - 


The  statements 


CLpo 

Hm  l 


are  used  to  initialize  to  zero  the  number  of  abutting  RPP's  counter,  LL,  and 

DBninitiallEe  switch  M  to  +1  each  time  a  new  side  of  a  possible  abutting 
RPP  is  to  be  tested.  M  can  equal  either  +1  or  -1  and  is  used  in  determining 
which  of  two  parts  of  a  packed  word  the  abutting  RPP  number  is  to  be  stored. 

The  statements 


K"C8ASEM2*{I-]  >  *2*<N-1  > 
MASTER  tK ) ■ Il*l I *1 ] 5+MASTEfi  (K) 


is  used  to  compute  and  store  the  location  of  the  list  of  abutting  RPP's  for 
the  side  of  the  RPP  being  considered. 
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The  statement 
NC*3*n»1-A# (N/2> 

is  used  to  set  variable  NC  equal  to  the  opposite  side  number  from  N  for  the 
RFP  that  is  to  be  tested. 

The  statement 

c«»  determine  if  RPP  J  MAS  abutting  surface  to  RPP  I 

c 

DO  5G  J*1 ,NHPP 

is  used  to  begin  a  DO  loop  which  will  test  each  of  the  RPP's  in  the  target 
geometry  for  abutting  surfaces. 

The  statements 

TFtl.EQ.UlGO™  56 

irt5U«Nl.NE«S(J»  NCI)  ROTO  56 


are  used  to  insure  that  I  and  J,  the  two  RPP's  to  be  compared,  are  not  the 
same  RPP;  and  to  cause  a  search  for  the  RPP  with  an  opposite  side  (NC) 
from  side  N  which  has  an  identical  coordinate. 

The  statement 


C10  COMPARE  boundary  COORDINATES  OF  HRP-S  I  ANU  J 

c 

on  53  K»l*3 

is  used  to  begin  a  DO  loop  which  will  test  the  opposite  sides  of  the  two 
RPP's  other  than  the  two  sides  with  identical  coordinates. 

The  statements 


nn»n»nc 

K4 l ■A*K" l 

IF<NN.EQ*K41>00T0  53 


are  used  to  prevent  the  two  opposite  sides  with  identical  coordinates  from 
being  tested  since  it  has  already  been  determined  that  the  sides  share  the 
same  boundary. 
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The  statements 


K2«2*K 

KZ1-KZ-1 


are  used  to  compute  two  opposite  faces  of  the  two  RPP's  for  comparing 
boundaries. 


The  statements 


IF(S(I,K2i>.OT,5<J»K2lHeOTO  So 

lF(StJ*K21>  ,LT.S(  I«K2  MOOTO  53 

50  IF  (StltKzi)  .GE.S<  J»K2  H60T0  51 
1F(S(J*K2  t.LE.S<|*K2  ttSQTO  93 

51  IF<$(I*K2  >*ST.S(j»K2  )  >OOTO  5C, 
tFtS(I.K2l) .Lt.S(JiK2i ) (GOTO  56 

53  CONTINUE 


are  used  to  compare  the  two  opposite  remaining  face  pairs  to  determine  if 
they  share  the  same  coordinate  within  the  boundaries  of  the  two  RPP's. 

The  statements 


C 

Cil  STOPS  RPP  NUMBER  in  ABUTTING  RPP  LIST  AND  INCREMENT  NUMBER 

c 

irtN.LT.QlGOTO  54 

are  used  to  set  M  to  its  opposite  value  (+1  or  -1)  and  to  test  for  a  -1 
condition  to  determine  in  which  part  of  a  two-part  packed  word  the  abutting 
RPP  is  to  be  stored. 

The  statements 


MASTER (L> -MASTER <L) *J 
GOTO  55 


are  executed  if  the  next  available  location  for  storing  the  abutting  RPP 
number  is  the  last  15  bits  of  the  storage  word.  The  abutting  RPP  number 
is  therefore  stored  in  the  last  15  bits,  and  control  is  transferred  to 
increment  the  count  of  abutting  RPP's. 
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The  statements 

5*  L"L*  1 

MASTEfl(U«JMl5 

are  executed  if  the  next  available  location  for  storing  the  abutting  RPP 
number  is  in  the  15  bits  prior  to  the  last  15  bits  of  the  next  word.  These 
statements  therefore  increment  L  to  the  next  word  and  store  the  number  of 
the  abutting  RPP  in  the  inside  15  bits. 

The  statements 

55  U*LLM 

56  CONTINUE 


are  used  to  increment  the  count  of  RPF’s  that  abut  side  J  of  RPP  I  and  to 
transfer  to  test  the  next  RPP. 

The  statements 


MASTER (Kl "MASTER  IK  I •tL 
ST  CONTINUE 

are  used  to  store  the  number  (LL)  of  RPPVs  abutting  side  J  of  RPP  I  when 
all  RPP’s  in  the  target  geometry  have  been  tested.  The  program  then  trans¬ 
fers  to  consider  the  next  side  or  RPP. 

The  statement 

IFtNRPP.LE. 1 1G0T0  63 


is  used  to  test  the  number  representing  the  quantity  of  RPPfs  used  to 
describe  the  target  geometry.  If  only  one  RPP  (or  none)  was  used,  the 
program  transfers  around  the  section  for  testing  the  validity  of  RPP  data. 

The  statement 


C 

Cl  2  TEST  VALIDITY  OF  RPP  DATA 

C 

C 

OH  62  J*I#6 

is  used  to  begin  a  DO  loop  to  verify,  for  each  side  of  all  RPP*s,  that  there 
is  either  an  abutting  RPP;  or,  if  the  side  faces  the  outside  of  the  geometry, 
that  it  has  the  same  boundary  coordinate  as  those  same  sides  of  the  other 
RFP's  in  the  geometry  whose  sides  are  on  the  same  outside  boundary. 
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The  statements 

OfJ  61  1*1  .NRPPl 


are  used  to  set  the  upper  limit  of  the  DO  loop  to  one  less  than  the  number 
of  RPP's  in  the  target  geometry,  and  to  begin  a  DO  loop  that  will  search 
through  the  RPP's  for  an  RPP  with  a  side  that  has  no  abutting  RPP. 

The  statements 


CALL  UN2<JJ»lDUM»i2t 
1 3*HASTER ( JJ»i ) 


are  used  to  determine  the  number  of  abutting  RPP's  and  the  pointer  to  the 
boundary  coordinate  for  the  side  of  the  RPP  being  considered. 

The  statements 

trt[2.Ne.o>ooTo  M 

are  used  to  test  for  the  number  of  abutting  RPP's.  If  there  are  RPP's 
abutting  the  side,  the  program  loops  to  test  the  same  side  of  the  next  RPP. 
When  a  side  is  found  with  no  abutting  RPP's,  II  is  set  to  the  number  of  the 
next  RPP  as  the  lower  limit  of  the  following  DO  loop. 

The  statement 

nn  60  K*II,NRPP 

is  used  to  begin  a  DO  loop  which  will  search  the  remaining  RPP's  in  the 
target  geometry  for  the  condition  of  no  abutting  RPP's  on  the  same  side. 

The  statements 


KK*LBAS€*12* tj-l | 
CALL  UN? (KK • IDUHt 15 ) 
U*«ASTER<KK*iI 


are  used  to  determine  the  number  of  abutting  RPP's  and  the  pointer  to  the 
boundary  coordinate  for  the  RPP  side. 
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The  statements 

irtis.Ne.oiooTO  so 

TP(l3.E<3*l6)OhT0  60 


are  used  to  test  the  RPP  side  for  abutting  RPP's.  If  there  are  abutting 
RPP’s,  the  program  loops  to  test  the  same  side  of  the  following  RPP's.  When 
one  is  found  with  no  abutting  RPP's,  the  boundary  pointer  for  the  side  of 
this  RPP  and  the  RPP  pointer  of  the  previous  DO  loop  are  compared  to  deter¬ 
mine  if  they  are  identical.  If  they  are,  the  program  loops  to  test  the 
next  RPP. 

The  statements 


IFRR»IE«R*l 

WRITE 

WRITE  <6*950  I J*  65TER  U  3>  *  ASTER  < 16 1 


are  executed  when  the  pointers  to  the  boundary  coordinate  of  the  two  sides 
of  the  two  RPP ' s  are  not  identical.  These  statements  increment  the  error 
count  and  print  out  error  messages  with  pertinent  data. 

The  statements 


60  CONTINUE 

QOTO  6? 

61  CONTINUE 
67  CONTINUE 


are  used  to  continue  the  search  for  RPP  sides  with  no  abutting  RPP's  to 
verify  the  exterior  boundaries  of  the  target  geometry  and  to  verify  that  no 
holes  exist  in  the  RPP  data. 

The  statements 

63  L*«"L 
RETURN 
END 
C 
c 

are  used  to  return  control  to  Subroutine  GENI  along  with  the  location  of  the 
last  word  of  RPP  data  when  this  subroutine  has  completed  its  function. 
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Subroutine  ALBERT (FX,LBOT,NDQ, LSI) 


Subroutine  ALBERT  is  called  by  Subroutine  GENI  during  the  geometry 
input  and  processing  phase  of  the  MAGIC  program  whenever  input  data  for  an 
arbitrary  polyhedron  is  to  be  entered.  Subroutine  ALBERT  computes  the 
equation  of  each  side  of  six  possible  sides  of  the  ARB,  verifies  that  all 
four  vertices  of  a  given  plane  are  in  the  same  plane,  determines  the  rela¬ 
tive  position  of  the  side  with  respect  to  the  other  sides  of  the  ARB,  and 
stores  the  coefficients  of  the  plane  equation  in  the  MASTER-ASTER  array 
along  with  the  location  of  the  data  for  each  plane. 

The  statements 


DIMENSION  IMft.4)  *AA  (8»3I  »FUt  >FXt{,) 
DIMENSION  MASTEfiUOOOO) 


are  used  to  dimension  the  MASTER  array  for  10,000  words  and  to  dimension 
other  arrays  to  be  used  in  this  subroutine. 

The  statements 


COMMON  a  STEM ( 1 0  000  > 

COMMON/UNCGeM/NRPP'NTRIPtNSCALtNBOOY  tNRM*X«L Tfi JP »l5CAL »lReGD» 

J  LDAla*L«rN»LROT,LlO*(.OcO*»Il5»l3o*LHOOYtN*Sc.KLOOP 

CnMMON/GeOM/'LBASE.HIN.R0UT.LRliL»OtPlNF.IEH«*OlST 


are  used  to  pass  information  into  and  out  of  this  subroutine  via  COMMON 
statements. 

The  statement 

fdu i vAlencc uster.maSterj 

is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 

The  statements 


9l)l 

*03 

00* 

0os 

90A 


FORMAT (2SX,6F]2a5l 
FrtRMAT(t0X»6(lA**H>> 

FORMAT  <lt)X*6ElO>3> 

FORMAT  <25X.6(*X,ai2| ) 
FORMATtiHo, 15MDNDEFINE0  PLANE) 

FORMAT  U5, 10  <EUt*> ) 
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907  FORMAT ( 1H0.26HF0UQ  POINTS  NOT  IN  A  PLANE) 
90ft  FORMAT UH0.25HERROR  IN  SlOE  DESCRIPTION) 
909  FORMAT <\Ho.)6HOE6ENeRaTE  PLANE* l5> 


are  used  to  format  input  and  output  data  and  output  messages. 
The  statements 


Ci  STORE  COORDINATES  OF  FIRST  TWO  VERTICES  IN  ARRAY  AA 
C 

K»  1 

00  10  1-1*2 
00  10  J*  1  •  3 
AA<1*J)“FX(k> 

K*K*1 

10  continue 


consist  of  two  DO  loops  which  are  used  to  equate  the  coordinates  of  the  first 
two  vertices  passed  to  this  subroutine  from  Subroutine  GENI  in  six-element 
one- dimensional  array  FX  to  the  first  six  elements  of  24-element  two- 
dimensional  array  AA. 

The  statements 


C 

C? 

C 

C 

C3 

C 


enter  coordinates  of  remaining  six  vertices  into  array  aa 

RE AD (5, 903)  < ( AA 1 1 « J) • J*1 *3) *1*3*8) 

ENTER  ORDINAL  NUMBERS  OF  PLANE  VERTICES 

READ (5,402) ( ( 1 A ( I , J ) , J* 1 , a ) ,1*1,6) 

WRITE  (6*901)  I  IAAU*J>  *J«1*3)  *I»3»B) 

WRITE  (6*O04>  ((IaU*J)*J*1*4)«I*1*6) 


are  used  to  enter  the  coordinates  of  the  remaining  six  vertices  into  the 
remaining  elements  of  array  AA,  to  enter  the  four  ordinal  vertex  numbers  for 
each  of  the  six  faces,  and  to  write  out  the  coordinates  of  the  eight  vertices 
and  the  ordinal  vertex  numbers  for  six  sides  of  the  arbitrary  polyhedron. 
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The  statement 


C 


on  70  1-1*6 


is  used  to  begin  a  DO  loop  which  will  compute  the  coefficients  for  the 
equation  of  each  of  the  six  surfaces,  verify  that  all  of  the  points  lie  in 
a  plane,  determine  the  relative  position  of  the  plane  with  respect  to  the 
other  planes,  and  store  the  data  in  the  ASTER-MASTER  array. 

The  statements 


£4  retrieve  first  three  vertex  coordinates  of  plane 

c 

T  X*I A  ( 1 1 1 ) 

TY»l A ( I *21 
TZ»I A ( 1*3) 

Xl-AA  (IX*  1) 

Y  )  ■  A  A  I IX*2) 

7 1 - A A ( IX»3i 
*2*AA  ( I  Y  •  1 ) 

Y?-AA< IY*2) 

Z?-A  A ( I Y  *  3 ) 

Xj* A A  1 1 Z  1 1 ) 
v  3- AA ( 1 7  *2 ) 
r3-AA(IZ*3) 


are  used  to  assign  the  x,  y,  and  z  coordinates  of  the  first  three  vertices 
of  the  side  to  individual  variable  names. 

The  statements 


C 

C%  COMPUTE  COEFFICIENTS  OF  PLANE  EOUaTION 

C 

0-X1- (Y2*23-Z2*Y3)-X2- (Y1-Z3-Z1-Y3) *X3* ( Vl-Z2-Zl*Y2) 
A«(-Y2*Z3*Z2*Y3*Yi*Z3-Z1*Y3-Vi*ZZ*Z1*Y2) 
9-(X2*Z3-Zz-X3-Xi4Z3*X3*Zi*XlAZz-Zl4X2) 
C-«YZ-X3-X2-Y3-Yi-X3*XiAY3*Yl»X2-Xl*Yz) 
Dl2-(Xl-X3)**2*  (Yi-Y3)—2*  (Zl-Z3»—2 


are  used  to  compute  the  x,  y,  and  z  coefficients  and  the  constant  term  for 
the  equation  of  the  plane  formed  by  the  three  vertices;  and  to  compute  the 
square  of  the  length  between  two  vertices  (D12) , 
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The  statements 


C 

Ca  Test  FOB  DEGENERATE  PLANE 
C 

A?B2C2-A*A*B*8«C»C 

IFIA2B?C2(NE.O.)GOTO  21 

WHITE  (6»9<J9>I 
0>A8S (0) 

GOTO 


are  used  to  compute  the  sum  of  the  squares  of  the  x,  y,  and  z  coordinates 
(A2B2C2)  and  to  test  the  result  for  a  value  of  zero.  If  the  result  is  equal 
to  zero,  a  message  is  printed  out  indicating  that  the  three  vertices  form 
a  degenerate  plane.  The  absolute  value  of  the  constant  term  is  computed, 
and  the  program  transfers  to  store  the  results  In  the  ASTER  array. 

The  statements 


C 

ct  test  fob  undefined  plane 

r 

?A  D1810*D12»1.0E-12 

1F(a2B2C2>GT.0121o>GOTO  22 
WHITE 

WHITE  ( fe *906 >  I • A • B *C »0t0 1 2 

iehp*iehh*i 

GOTO  To 


are  executed  if  it  has  been  determined  that  the  three  vertices  do  not  form 
a  degenerate  plane.  These  statements  reduce  the  square  of  the  length  between 
two  vertices  (D12)  to  an  extremely  small  value  (D1210)  and  compare  D1210 
with  the  value  of  the  sum  of  the  squares  of  the  x,  y,  and  z  coefficients 
(A2B2C2) .  If  A2B2C2  is  not  greater  than  D1210,  an  error  message  indicating 
an  undefined  plane  is  printed  out  along  with  pertinent  data  about  the 
undefined  plane.  The  error  count  is  incremented  by  one,  and  control  is 
transferred  to  compute  and  test  the  next  plane  of  the  ARB. 

The  statements 


22  S-50RT (A202C2> 
WX-A/S 
WY«a/S 

WZ*c/5 


are  used  to  compute  the  direction  cosines  of  the  perpendicular  vector  from 
the  origin  to  the  given  plane. 
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The  statements 


C 

C«  RETRIEVE  COORDINATES  OF  FOURTH  VERTEX  ON  PLANE 

r. 

X4“A  A < TC  * 1 1 
V4"AA (TCt2> 

2*“AA 


are  used  to  assign  the  x,  y,  and  z  coordinates  of  the  fourth  vertex  of  the 
plane  to  individual  variable  names. 

The  statements 


C 

cq  compute  distance  to  plane  of  fourth  vertex 

c 

0?« (-0, ( A«X*I-(6*y*)-<C#Z4l }/{<A*mX)*U}«nV)*(c*m2)) 

022-02*02 

are  used  to  compute  the  perpendicular  distance  from  the  fourth  vertex  to 
the  plane  formed  by  the  first  three  vertices  and  to  square  the  distance. 

The  statements 


C 

ClO  DETERMINE  IF  FOURTH  VERTEX  LIES  ON  PLANE  OF  FIRST  THREE  VERTICES 

C 

TF<022.LE.1.01)GOT0  30 
WRITE  (6»9f)7) 

IERR"IERR*1 

WRITE  ( 6 • I • A .0 t C *0 *0 1 2 • 0? 

00 TO  7ft 


are  used  to  test  the  squared  perpendicular  distance  from  the  fourth  vertex 
to  the  plane  formed  by  the  first  three  vertices.  If  greater  than  the 
allowable  limit,  indicating  that  the  fourth  vertex  does  not  lie  in  the  plane 
formed  by  the  first  three  vertices,  an  error  message  along  with  pertinent 
data  on  the  plane  is  printed  out,  the  error  count  is  incremented  by  one, 
and  control  is  transferred  to  compute  and  test  the  next  plane  of  the  ARB. 

The  statements 


C 

30  00  31  K«l»4 
F  (tO  "0 . 

31  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  zero  the  four-element  array,  F. 
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The  statements 


e 

C11  COMPUTE  values  OF  OTHER  FOUR  VERTICES 
C  WITH  RESPECT  TO  PRESENT  SIDE 

c 

L«1 

00  32  J»ltB 

IF< J.£Q. IX.OR.J.EQ. IY.OR.J.EQ.I2.0R*j,eQ»Ic)SOTO  3> 

F  <L> ■*«**< J* 1 > *0**4 ( J»2>*C*AA(J»3)*6 

L«L*1 

32  CONTINUE 


are  used  to  initialize  F  array  index  L  to  one.  The  DO  loop  is  used  to 
determine  the  other  four  vertex  numbers  that  are  not  a  part  of  the  plane 
being  considered.  These  four  vertex  numbers  are  used  to  retrieve  the  x, 
y >  snd  z  coordinates  for  each  of  the  four  vertices  and  substitute  them  into 
the  equation  for  the  plane  being  considered.  The  results  for  each  are 
stored  in  four-element  array  F. 

The  statements 


41 


COMPUTE  NUMBER  OF  OTHER  VERTICES  On  EITHER 

side  of  plane  or  on  plane 

MaO 

NaO 

JMO 

DO  L"l»4 

IFU0S(F(L)  1  .LE.1.0E-6)G0TO  42 

IF(F<LJ  Ult42*43 
MaM*  ] 


0OTO  44 

42  N«N*I 

GOTO  44 

43  J"J*I 

44  CONTINUE 


are  used  to  initialize  counters  M,  Nf  and  J  to  zero.  The  DO  loop  is  used 
to  test  the  results  of  each  of  the  four  vertices  in  four-element  array  Ff 
to  determine  if  the  vertex  lies  on  the  plane  (count  in  N) ,  if  the  vertex 
lies  on  the  positive  side  of  the  plane  (count  in  J),  or  if  the  vertex  lies 
on  the  negative  side  of  the  plane  (count  in  M) . 
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The  statements 


13  DETERMINE  SIDE  or  PLANe  OTHER  vertices  ARE  LOCATED 

ir<N,EQ.0>G0TO  SI 
IF  (M*N.fQ,4)G0T0  so 
IF U*N.EQ.*lGOT0  61 
gtlTO  52 

51  IF IM.EQ.AISOTO  60 
IFtJ.EQ. *)flOTO  61 


are  used  to  determine  on  which  side  of  the  plane  the  remaining  four  vertices 
are  located  and  to  verify,  by  testing  the  contents  of  counters  M,  N,  and  J, 
that  they  are  all  on  the  same  side  of  the  plane. 


The  statements 


52  WRITE  (6»9o8> 

WRITE  t«P906>  l*A<B<C'0f0U*02*  tF(L)*L*l*4> 

IER(,MERRM 

GOTO  To 


are  executed  if  the  remaining  four  vertices  not  part  of  the  plane  under 
test  are  not  all  on  the  same  side  of  the  plane.  These  statements  therefore 
are  used  to  write  out  an  error  message  along  with  pertinent  program  informa¬ 
tion  for  troubleshooting  purposes.  The  program  increments  the  error-count 
and  transfers  to.  compute  and  test  the  next  side  of  the  ARB. 

The  statements 

C 

60  A  — A 
B— B 
C— C 
0—0 


are  used  to  establish  a  sign  convention  of  the  ARB  such  that  the  positive 
side  of  the  given  plane  is  on  the  interior  of  the  ARB.  This  also  insures 
that  all  normals  to  the  planes  of  the  ARB  are  directed  into  the  ARB. 
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The  statements 


C 

Ci*  STORE  PLANE  COEEEICIENTS  ANO  POINTERS 
C 

61  CALL  SEE3(IAH, ASTER. MASTER«A>B*CtL8OT.L0ATA«NoQ»L$I) 
MASTER (LDATAI alWH 
LS)«1 

CALL  SEE3 (1KM. ASTER. MASTER, 0.0.0*LBOt.c0aTa.Nd0. LSI > 
LS1»0 

MASTER (LOATA)«MASTER(LOATA>«Imh*I IS 
LOATA"LOATa*1 


are  used  to  store  in  the  ASTER  array  the  coefficients  A,  B,  and  C  as  triplet 
data  and  the  constant  term  D  as  a  scalar  value.  Subroutine  SEE3,  which  is 
called  to  store  the  triplet  data  (LS1=0)  A,  B,  and  C  in  the  ASTER  array, 
returns  with  location  (pointer)  IWH  of  the  coefficients;  this  is  packed  in 
the  MASTER  array.  LSI  is  set  to  1,  and  Subroutine  SEE3  is  again  called  to 
store  the  D  term  as  a  scalar  value  in  the  ASTER  array.  Subroutine  SEE3 
returns  with  location  (pointer)  IWH.  LSI  is  initialized  to  zero,  the  pointer 
to  the  D  term  in  the  ASTER  array  is  packed  into  the  same  word  as  the  pointer 
to  the  location  of  the  A,  B,  and  C  terms,  and  LDATA  is  incremented  for  the 
next  set  of  pointers  for  the  next  side  of  the  ARB. 

The  statements 

70  CONTINUE 
return 

END 

C 

c 

are  used  to  cause  the  subroutine  to  loop  to  compute  and  test  the  next  side 
of  the  ARB.  If  all  of  the  six  possible  sides  have  been  computed,  tested, 
and  stored,  the  program  returns  to  the  calling  program,  Subroutine  GENI. 
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Subroutine  ARIN (LBOT , LDATA) 


Subroutine  ARIN  is  called  by  Subroutine  GENI  during  the  input  processing 
phase  of  the  MAGIC  program  to  enter,  check,  process,  and  store  the  data  ele¬ 
ments  of  a  given  arbitrary  surface  (ARS)  in  the  MASTER-ASTER  array. 


The  statements 


SUBROUTINE  ARINtLflOT.LDATA) 

C 

C  SURROUTINE  READS.  CHECKS*  PROCESSES.  AND  STORES  INPUT  DATA 

C  For  THE  ARS  (ARBITRARY  SURFACE! 

C 

DIMENSION  W(3)  «UWO)  *VW(3)  t«NO> 

DIMENSION  MASTER (10000! 

COMMON  ASTER(IOOOO) 

COmMON/UNCLE/NN. IC (4! 

EQUIVALENCE  (MASTER. ASTER! 


are  used  to  dimension  arrays  to  be  used  in  this  subroutine,  to  pass  information 
into  and  out  of  this  subroutine,  and  to  set  the  MASTER  array  equivalent  to  the 
ASTER  array. 

The  statements 


901  FORMA  T (1 h  , IB. 1 X.3A1 .2X.3HAHS.2X»A4»2XtfiX. 

1  37HNUMWFR  OF  CURVES  m«,H0  / 

2  1H  ,33X,37HNUH0ER  OF  POINTS  Pe»  CURVE  N«.I10  / 

3  ,  33* *  37HNUMBER  OF  POINTS  In  mn-,110  / 

4  I h  .33X.37HNUMBER  OF  POINTS  STOREQ  NP*2N (M-l ) «,  1 10  / 

5  IN  ,33X,37HT0TAL.  STORAGE  NSTR«4nP*62«  ,  11 0  ! 

903  FORMAT (2SX,AF12. 4) 

90*  FORMAT ( 10X*fiFl 0,5l 

B05  format  ( 1  h  ,33X,34NNUMHER  of  TRIANGLES  DESCRIBED  ♦  1 1  {!  ) 

90*  FORMAT  (1H  .33X.34HNUMBER  OF  NON-OtGENER ATE  TRIANGLES,  I  l(j  ) 

910  FORMAT ( IH0 « A3HERROR  IN  DESCRIPTION  Of  *RS  SOLID  NUMBEft»I5> 

911  FORMAT (SX.21HNUMBER  OF  POINTS  IS  0j 
920  FORMAT  1 1  OX, 211 01 

are  used  to  format  the  Input  and  output  data  entered  and  printed  out  during 
this  subroutine. 
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The  statements 


C 

C  ENTER  NUMHER  Of  CURVES  AND  NUMgER  OF  POINTS  P£R  CURVE  AN0 

c  COMPUTE  number  of  POINT  To  dE  STORCO  AND  STORAGE  REQUIREMENTS 

c 

READ (5iQ20*MfN 
HNeM*N 
NP=2*N* (M-l ) 

NSTR-4#NP+ft? 

WRITE  <6*901  INN,  JC  <11  *IC  (21  *ICI3>  ilCUl  ,M ,N*MN*  NPtNSTR 


are  used  to  enter  the  number  of  curves  which  are  to  be  input  and  the  number 
of  points  to  be  input  for  each  curve-  The  total  number  of  points  to  be  entered 
and  the  number  of  points  to  be  stored  are  also  computed-  (Points  are  stored 
in  pairs  between  consecutive  curves,)  The  total  storage  required  for  the 
given  APS  is  computed  and  a  message  is  written  out  giving  the  sequential  body 
number  of  the  ARS ,  a  control  number ,  the  number  of  curves,  the  number 
of  points  per  curve,  the  total  number  of  points  entered,  the  reserved  space 
for  storing  the  points,  and  the  total  number  of  storage  words  required  for  the 
given  APS, 

The  statements 


C 

C  CHECK  IF  NUMBER  or  POINTS  lb  0 

C 

IF  (NP.OT  ,  0)  (SOTO  U 
WRITE ( 6 • 9 1  ft  >  NN 
WRITE  <6*911 > 

return 


are  used  to  determine  if  there  are  any  points  to  be  stored  for  the  given  ARS, 
If  not,  the  body  number  and  an  error  message  are  printed  out,  and  the  sub¬ 
routine  returns  control  to  Subroutine  GENI, 

The  statements 


C 

C  RESERVE  storage  In  MASTER-ASTER  ARRAY  FOR  ARS  DATA 

C 

in  l0ot*Ubot-nstr 

MASTER (LDATAi *LR0T 
1 0  A  T  A*t 0 A  T  A  +  1 

LOC»LB0T*82 


227 


TN  4565-3-71  Vol  II 


are  used  to  provide  a  storage  area  in  the  body  data  section  of  the  ASTER  array 
for  the  ARS  data;  to  store  this  beginning  location  in  the  body  data  pointer 
section  in  the  MASTER  array  indexed  by  LDATA;  to  increment  LDATA  to  the  next 
available  location  in  the  body  data  pointer  section  of  the  MASTER  array;  and 
to  set  LOC  to  the  beginning  location  of  the  ARS  point  data. 

The  statements 


C 

C  ENTF.H  and  STORE  COORDINATE  DATa  of  ARS 

c 

L0CC«L0O4 
on  230  I  *  1  »  M 
IP ( I .EQ.M)L0C»L0CC 
L 1 «L0C 

L2»L0C*A*(n-1 > 

READ ( 5. 904 J  f ASTER (L) • ASTER (L*l > • ASTER <l*2> *L»Ll»L2.B> 
w*ITE<6«903>  (ASTER  (L)  .ASTER  <L*1  >  ♦  ASTER  C|_  ♦  2 )  »L«Li«L2»e) 
tF  < I .NE.M) WRITE (6.903) 

IP(I.EO.l.Ofl.I.EQ.M)6nTO  220 
00  210  L-U  .L2»8 
ASTER(L0CC)»ASTER(L) 

ASTER  <|_0COl>  -ASTER  <L*  l ) 

ASTER (L0CC*2> -ASTER (L«2> 

LOCC-LOCO0 
210  CONTINUE 
220  L0C-L2*8 
230  CONTINUE 


are  used  to  enter  the  M*N  points  and 
locations  beginning  at  word  82  of  the 
The  points  are,  in  effect,  stored  in 
example,  given  five  curves  (M=5)  and 
points  to  be  entered  would  be  M*N=5*4 
=2*4*(5-l)=32  points  of  storage  (four 
be  stored  in  the  following  manner  (a 

p  .  p  p  .  •  •  •  p  p 

22’  13’  23’  44’  54’ 


store  them  in  the  NP=2*N*(M-1)  reserved 
reserved  section  for  the  given  ARS. 
pairs  between  consecutive  curves.  For 
four  points  per  curve  (N=4) ,  the  total 
=20,  but  would  require  NP=2*N*(M-1) 
words  per  point) ,  These  points  would 


given  point  is  P„._) : 

MJN 


P  P  •  P 
11’  *21’  *12* 


The  statements 


C 

C  STORE  NUMBER  OP  POINTS  STORED  FOR  ARS  AND  INITIALIZE  LOCATION 

C  FOR  STORING  NUMBER  OF  HITS  FOR  SHOTLINE 

C 

MASTER (LBOT)-NP 
MASTER(L0OT*1)»O 


are  used  to  store  the  number  of  points  stored  (NP=2*N*(M-1))  in  the  first 
storage  word  of  the  given  ARS  data  section,  and  to  initialize  the  second 
storage  word  to  zero.  This  second  storage  word  will  be  later  utilized  by 
Subroutine  ARS  to  store  the  number  of  hits  on  the  given  ARS  for  a  given  shot- 
line. 
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The  statements 


C 

c  ELIMINATE  DEGENERATE  TRIANGLES  For  given  ars  data 

G 

NTfiNP-? 

write (a*r&sjnt 
L I*L80T  *82 
LZsLl+4* f  NT- 1 ) 


are  used  to  compute  and  print  out  the  number  of  triangles  described  by  the 
points  for  the  given  ARS.  The  beginning  location  of  the  point  data  is  stored 
in  LI  and  the  first  point  of  the  last  triangle  is  stored  in  L2  for  use  as 
lower  and  upper  limits  in  the  following  DO  loop  for  eliminating  degenerate 
triangles  in  the  given  ARS. 

The  statements 


00  350  L  *L  1 fL2*4 
A < 1 }»ASTER(L) 

W (?) *AST£B  <L+  l  ) 

W(3>*ASTEft (L*?) 

UW( | >  baSTER  <L  +  *) -W  1 1 » 

U*  (2MA5TER  -W  (2> 

Uwf3>*A5TER(L*M-Wl3) 

Vi-  ( \  )  baSTEu  (t  *  -W  ( 1 1 
VW(?i *AST£R fL*R' -w  (21 
VWf  31 bASTEP (L*10 1 (1) 

CALL  CROSS  (  WfitUW  f  VW) 

IF  [DOT  (vlNtWN)  ,GT  .0*00011  GOTO  3*0 
NT  sN  T - 1 

ASr£R(L*3J=-l *0 
350  CONTINUE 


are  used  to  check  each  consecutive  three  points  to  determine  if  they  form  a 
non-degenerate  triangle  or  a  degenerate  triangle.  This  is  accomplished  by 
computing  two  vectors  from  the  second  and  third  points  to  the  first  point  and 
computing  the  cross  product  of  these  two  vectors.  If  the  dot  product  of  the 
resultant  vector  is  zero,  the  three  points  formed  a  degenerate  triangle r  and 
the  number  of  described  triangles  in  the  given  ARS  is  reduced  by  one,  and  a 
negative  one  is  placed  in  the  fourth  word  of  the  first  point  of  the  three  given 
points.  If  the  dot  product  is  greater  than  one,  the  three  given  points  form 
a  non-degenerate  triangle.  The  next  consecutive  three  points  are  then  con¬ 
sidered  . 
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The  statements 


C 

*RI  If  NT 

wRl TE (fe,901) 
RETURN 
END 


are  used  to  print  out  the  number  of  non-degenerate  triangles  in  the  given  ARS, 
and  then  to  skip  a  line  in  the  printout.  Control  is  then  returned  to  Sub¬ 
routine  GENI. 
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Subroutine  SEE3 (I WH, ASTER .MASTER, FX.FXX, FXXX. LBOT, LDATA , NDQ . LS 1) 

Subroutine  SEE3  is  called  by  Subroutine  GENI  or  ALBERT  during  the  input 
processing  phase  of  the  MAGIC  program.  The  routine  accepts  either  triplets 
or 'scalars  and  places  them  in  the  ASTER  array.  A  search  is  first  performed 
through  the  triplet/scalar  data  section  to  determine  if  the  triplet  or  scalar 
already  appears  in  the  ASTER  array.  If  so,  the  data  will  not  be  stored  again, 
and  location  IWH  of  the  data  is  returned  to  the  calling  program.  If  the  trip¬ 
let  or  scalar  does  not  already  appear,  it  is  added  to  the  ASTER  array,  and 
location  IWH  of  the  data  in  the  array  is  returned  to  the  calling  program.  The 
triplet  or  scalar  data  are  passed  to  this  routine  through  arguments  FX,  FXX, 
and  FXXX.  Argument  LSI  denotes  whether  arguments  FX,  FXX,  and  FXXX  contain 
triplet  or  scalar  data.  If  LSI  is  equal  to  zero,  triplet  data  is  being  passed. 
If  LSI  is  equal  to  one,  scalar  data  is  being  passed. 

The  statement 


DIMENSION  ftSTEPt ifto00>  »MASTER (  1  0000  * 


is  used  to  dimension  the  MASTER  and  ASTER  arrays. 
The  statement 


Cl  TEST  TO  DETERMINE  IE  TRIPLET  OR  SCALAR  DATA 
C 

TECLSl.NC.OIflOTO  SO 


is  used  to  test  argument  LSI  to  determine  if  triplet  or  scalar  data  are  being 
passed  to  this  subroutine.  LSI  =  1  indicates  scalar  data.  LSI  =  0  indicates 
triplet  data. 

The  statements 


C 

C9  EXECUTE  ir  TRIPLET  data 

c 

lF(L0OT.OT,NDQ»aOTO  20 
NnQ2«ND0“2 


are  executed  if  triplet  data  is  being  passed  to  this  subroutine.  If  the  begin¬ 
ning  location  of  the  triplet/scalar  data  is  greater  than  the  end  of  the  ASTER 
array,  control  is  passed  to  store  the  triplet  data  passed  through  the  argument 
list.  If  the  beginning  location  of  the  triplet/scalar  data  is  less  than  the  end 
of  the  ASTER  array,  the  upper  limit  of  the  following  DO  loop  is  computed  to  be 
two  locations  less  than  the  end  of  the  ASTER  array. 
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The  statements 


Cl  SC ARCH  TOR  equal  triplet  in  the  aster  array 

c 

DO  10  I«LBOT«NOQ2 
IF  (ASTER  !  It  .NE.nuGOTO  10 
IF(aSTER(I*H  .NE.FXXtGOTO  10 
IF(ASTFRlI*2l.NC.rXXX»OQTO  10 
I#M«I 
RETURN 
10  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  search  the  triplet/scalar  data  already 
in  the  ASTER  array  to  determine  if  three  succeeding  quantities,  equal  to  the 
triplet  passed  through  the  argument  list,  can  be  located.  If  so,  the  beginning 
location  of  the  triplet  is  equated  to  pointer  IWH,  and  control  is  returned  to 
the  calling  program. 


The  statements 


C 

C*  STORE  TRIPLET  PASSED  BY  ARGUMENT  LIST 

C 

20  ASTER(LBOT-l)«FXXl 
ASTER (lBOT-2) «FAX 
ASTER<L80T-j>«FX 
L80T»LB0T»1 
IWH-LBOT 

TF<LBOT.LE.LOaTa>*RITE  I*.3Q>L0OT.lDaTa 
RETURN 


are  executed  if  an  equal  triplet  already  in  the  ASTER  array  could  not  be  found. 
These  statements  therefore  store  the  triplet  from  the  argument  list  backwards 
from  the  beginning  of  the  triplet/scalar  data  already  in  storage.  The  begin¬ 
ning  of  the  triplet /scalar  data  is  updated  to  include  the  new  data.  The  loca¬ 
tion  of  the  triplet  data  is  equaled  to  pointer  IWH  to  be  passed  back  to  the 
calling  program.  If  the  triplet /scalar  data  overlaps  the  body  data  pointer 
section,  a  message  with  the  value  of  the  pointers  of  the  two  sections  is 
printed. 

The  statement 


C 

30  FORMAT (1 M0. 22MMEM0RY  OVERLAP  IN  SEE 3 , 5X.5ML6QT« » Ij 
1  5*»6ML0aTa*» I  JO) 
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is  used  to  format  the  message  and  data  to  be  written  out  if  the  body  data 
pointer  section  overlaps  the  triplet/scalar  data  section. 

The  statements 


£*  EXECUTE  IE  SCALAR  QUANTITY 

C  SEARCH  FOR  EQUAL  SCALAR  QUANTITY  IN  THE  ASTER  ARRaY 

C 

50  00  60  I«LB0T»N0Q 

If (ASTERII) ,NE»EX)Q0T0  60 
I«H»I 
RETURN 
60  CONTINUE 


are  executed  if  scalar  data  is  being  passed  to  this  subroutine.  These  state¬ 
ments  consist  of  a  DO  loop  which  is  used  to  search  the  triplet/scalar  data 
already  in  the  ASTER  array  to  determine  if  an  equal  scalar  value  can  be  located. 
If  so,  the  location  of  the  equal  scalar  quantity  is  equated  to  pointer  IWH,  and 
control  is  returned  to  the  calling  program. 


The  statements 


C*  STORE  SCALAR  QUANTITY  PASSE0  BY  ARQUmENT  Ll*T 
C 

ASTER(LBOT-l»«f X 

L0OT»LBOT»i 

IwM«L80T 

return 


are  executed  if  an  equal  scalar  quantity  could  not  be  found.  These  statements 
therefore  store  the  scalar  from  the  argument  list  backwards  from  the  beginning 
of  the  triplet/scalar  data  already  in  storage.  The  location  of  the  scalar  is 
equated  to  pointer  IWH  to  be  passed  back  to  the  calling  program.  The  beginning 
location  of  the  triplet/scalar  data  is  also  updated  to  include  the  new  data. 
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Subroutine  GRID 

Subroutine  GRIT)  is  the  main  control  program  for  tracking  a  ray  through 
the  geometry.  It  is  called  by  the  main  control  program  of  MAGIC  and  controls 
all  of  the  input  and  processing  for  a  single  attack  plane  after  reading  in 
data  and  generating  the  attack  plane  at  the  given  angle  of  attack.  This 
plane  is  divided  Into  a  grid  of  square  cells,  with  each  cell  acting  as  the 
point  of  origin  of  one  ray.  The  tracing  of  each  ray  from  the  grid  through 
the  vehicle  geometry  is  accomplished  by  Subroutine  TRACK.  Subroutine  GRID 
therefore  calls  Subroutine  TRACK  once  for  each  ray  after  Subroutine  GRID 
has  defined  the  ray. 

The  statements 


DIMENSION  wp<3> 

C0MM0N/P#REM/XB<3) »w8<3> *  IR 

COMMON/GEOM/LBASE. RlN, ROUT. lRI«LRO,RlNF»IEHRfD 1ST 
COMM0N/UNCGeM/NRPP,NTfilP,N$CAl.*NeODT*N«M*X,LTRIP«LSCALtLfieGD' 

1  LDATa.LRIN.LROT *L IOiLOCOA  *  1 1 S • I  30 «L80DV *NA$C • klooR 
C0MM0N/GTPACK/0I •02*Kh!T, LMaX.TR 1200 1  #X0S<3) » irsTrt  * IENCi 
1  ITR<?00>  »CA*CEtSA»SE 

COMMON/CAL/NlRtSLOS,AN0LEtNTVPEtSSPAcE»L»AS(3J  »wS(3) , 

1  TPAVEL»SNtV«H*IVlM 
COMMDN/HALT/LIRFO.NGIERR 
COMMON/hOYT/VREe ,mReF 
COMMON/CELL/CELSIZ 

CnMMON/CONTRL/ITESTG.IR/kYSKWENTLV.IVQLUM.lMOT.ItAPEB.NO.IYES 


dimension  a  three- element  array  for  the  isotropic  direction  cosines  result¬ 
ing  from  a  call  to  Subroutine  TROPIC  and  pass  information  into  and  out  of 
this  subroutine  via  the  COMMON  statements. 

The  statements 


1 


901  FORMAT ( fl 1 1 0 ) 

902  FORMAT {6EI2<8> 

903  FORMAT  tlHo.gHNX, I5,5X,2MNY»I5«5X»THIRSTART,IS.5X.AMIENC»I5.SX, 

‘  "NEN0tl6tSXf9HcEU  SUE.F7.2// 

2m.FI0.3»27h  MJTH  RESPECT  To 
ZM.F10.3»27W  WITH  RESPEcT  to 

To 

TO 


2 

I7H 

DATUM  LINE 

AT 

3 

ITH 

GROUND  IS 

aT 

4 

I7H 

XShIFT  is 

at 

5 

17H 

YSHIFT  IS 

at 

—  ■  ■  a  v  ■  t  f  ■  ■  p 

x**Fio»3»2Tm  •'ITh  RESPEcT 
Y" »F 1 0 * 3 i 2TM  • I TM  RESPEcT 


the 

the 

the 

the 


ORIGIN/ 

ORIGIN/ 

ORIGIN/ 

ORIGIN/J 
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904  FORMAT (1H  « 7HAZI muTh »F J2«5*5,1*9HELC*aTION*F12 t5»5X» 

]  13HBACK  OFF  OISTtFlZ.S) 

90^  FORMAT<2E20.8*4El0.3> 

9°078  FOR^Vt  UH  J  IUhOPT  COHHU  TE  RANDOM  POINT  IN  CELL> 

90q  FORMAT (iHo*35HOPT [ON  SET  TO  CHOOSE  CENTER  Of  CEIL) 


are  used  to  format  the  grid  input  parameters  for  entering  and  printing  out 
and  to  format  output  messages. 

The  statements 


Cl  READ  ARID  INPUT  PARAMETERS 
C 

REaO (5*901 ) NX. NY* I RSTBTt IENC»NGlERR*NSTART. NENO  * ICENTR 
RFAO  ts*90?) A«E»ENOTH.ZSmIFT,SROUND 
Read  <5*902>*SMIFT.VSm[FT.cEL$IZ 


are  used  to  enter  the  grid  input  parameters.  Note;  it  is  preferred  that 
both  NX  and  NY  always  be  odd. 

The  statements 


h  initialize  parameters  not  set  by  input 

c 

IF  ( IRSTRT  ,t_E.O)  mSTRT-1 
IF  tCELSIZ  .lE.0.)c£lSIZ*4. 

IF  (NSTART,i.etO>NSTART«I 

IFlNEND,LE.NSTART)NENO»NX»NY 

IF{NOiERR»LE.0tN8lERR*2S 


initialize  the  starting  region  number,  the  cell  size,  the  cell  number  in 
which  ray  tracing  is  to  begin,  the  number  of  the  last  cell,  and  the  limit 
of  errors  allowed  in  Subroutine  G1  if  these  input  parameters  were  not 
initialized  in  the  previous  read  statements. 

The  statements 


print  out  input  parameters 

WRITE  (6,903)NX,NYflRSTRTf  IENC.NSTART.NCND.CELSIZ* 

Ifl IROtIeo! I?eS^ShITE<I*90S> A*E»xsHIfT»YSmIFT»Z5HIFT»cELSIZ 
WRITE  (6*904> AtE»ENOTH 
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print  out  the  input  parameters.  The  variable  IWOT  is  compared  with  IYES 
(IYES  is  set  by  program  MAIN).  If  IWOT  is  not  equal  to  one,  the  azimuth, 
the  elevation,  the  coordinates  of  the  center  of  the  target,  and  the  cell 
size  are  written  out  on  tape  1.  If  IWOT  is  equal  to  zero,  no  writing 
occurs  on  tape  1. 

The  statements 


If  (ICENTR.gQ.o) WRITE  (<S»9o8> 

If <ICENTR.NE,o> WRITE (6*9o9 ) 

are  used  to  write  out  a  message  giving  the  origin  of  the  ray  from  the  cell 
(random  or  center). 


The  statements 


RADIAN*.  01 745329251990 

aR*a*RaOIan 

CR«e«RADlAN 


set  the  variable  RADIAN  to  equal  one  degree  expressed  in  radians  and  con¬ 
vert  the  azimuth  and  elevation  angles  to  radians. 


The  statements 


$A*SIN(AR> 
CA*COS ( AR) 
SE*SIN<ER> 
CE»COS(£R» 


are  used  to  compute  the  sine  and  cosine  of  the  azimuth  and  elevation  angles. 


The  statements 


PROCESS  nEnD-NSTaRT* i  CELLS 
Kk«nSTaRT 


begin  a  loop  to  process  each  ray  in  the  grid  plane  beginning  with  the  first 
cell  where  the  ray  tracing  is  to  begin  (usually  cell  number  one)  and  ending 
with  the  last  cell  in  the  grid  plane  (usually  NX*NY) . 

The  statements 


C 

Ca  compute  direction  cosines  op  ray 

c 

*  Wfl ( 1 )*-CE«CA 
WR(2)a«C€*SA 
we (}>•-$£ 
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compute  the  direction  cosines  for  a  ray  perpendicular  to  the  grid  plane  and 
directed  toward  the  target  geometry. 

The  statements 


£4  COMPUTE  »0W  AND  COLUMN  NUMBER  Of  BRIO  CCLL 
C 

n«HKK-l|/NX>*l 

j»kk-<ii-d<*nx 


are  used  to  compute  the  row  number  (II)  and  the  column  number  (J)  of  a 
specific  grid  square  from  which  a  ray  is  to  be  started  toward  the  target 
geometry. 

The  statements 


CELL2«.5*CCISIZ 

V«FLOaT  ( CNV/g)*H> *CELSI2  *CELL2 
V«EFaV*CELL2 

H-FLOAT ( lNX/2>-  J) •CElSIZ  «CELL2 
HREFaM*CELL2 

are  used  to  locate  the  lower  left  corner  of  the  grid  square.  V  represents 
the  vertical  distance  from  the  center  of  the  grid  plane  and  H  represents  the 
horizontal  distance.  The  variables  VREF  and  HREF  refer  to  the  center  of 
the  specified  grid  square. 


The  statements 


IFUCENTR.EQ.OHJOTO  5 

m»h«EF 

VayREF 

IV  J Hart 

GOTO  6 


are  used  to  set  the  ray  origin  from  the  cell  to  the  center  of  the  cell  if  the 
control  variable,  ICENTR,  is  other  than  zero.  The  program  then  branches 
around  the  section  for  computing  a  random  origin  within  the  cell. 
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The  statements 


3  IV«Ran<-1)«1[>. 


are  used  to  calculate  two  random  numbers  between  zero  and  nine.  A 
random  number  Is  also  calculated  for  printout  by  Subroutine  TRACK. 


two-digit 


The  statements 


C 

e 


compute  random  point  within  grid  cell 

V«V*CELSIZ  *FlOAT<IV)/10i*CELSIZ  /20, 
H>H*CEl.SIZ  "FLOaT  ( IM) /10«  *CEL5IZ  /go. 


l05a^  a  ”ndom  Point  1“  the  grid  cell  previously  specified  by  variables  IT 
and  J.  There  are  100  possible  random  points  In  'the  grid  calif  VOrlaMes  11 


The  statements 


C 

C7  CONVERT  GRID  PLANE  COORDINATES  TO  COORDINATES  OF  TARGET 

6  XBS ( 1 J  *XSHIFT-V»CA#$E*HbSa 
XeSlgt-vSHJFT-VASA^SE^HPCA 
KR5 ( 3  >  *ZSH IFT* V*CE 


are  used  to  transform  the  point  within  the  current  grid  cell  into  the 
coordinate  system  of  the  target  and,  at  the  same  time,  to  effectively 

soli flane  ^  tar8et  s>’st:e"  c0°rdinate  origins  to  a  nev  location 
specified  by  the  variables  XSHIFT,  YSHIFT,  and  ZSHIFT.  C 


The  statement 


CAU  thopic(np) 


calls  Subroutine  TROPIC  to  generate 
isotropic  distribution. 


random  direction  cosines  (WP)  fr0m  an 
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The  statements 


XBS<1  >»X9S(1>  ♦WP<i>M*0£"» 
xBS<2i*xBS<2MWPt2>M*oE** 

XB5<3)«XBS<3> *NP 13)*1.oE** 


are  used  to  move  the  randomly  selected  point  by  a  very  small  amount  in  a 
random  direction. 

The  statements 


84CK  OFF  Ray  ORIGIN  FROM  GRID  PLANE  TO  ATTACK  PLANE 

xBtu*xes<i  i-engthawbu  > 

XB<2>»X8St2>-ENGTM*w0l2) 

XHt3>»XBSt3)-ENGTM*we<3> 


are  used  to  back  out  the  origin  of  the  ray  from  the  target  by  an  amount 
specified  by  the  variable  ENGTH.  The  ray  from  this  starting  point  will  pass 
through  the  coordinates  XBS  computed  above. 

The  statement 


IF (*8(3) »LF ,GROUNO>GOTo  40 


determines  if  the  origin  of  the  ray  is  below  the  Z  coordinate  of  the  ground. 
Rays  will  not  be  traced  if  their  origin  is  below  ground  level. 


The  statements 


SAVE  RAY  ORIGIN  AND  DIRECTION  COSINES  OF  RAY  FOR  LATER  REFERENCE 

00  20  KK 1*1 » 3 
XS (KK 1 ) *X0 <  KK 1 1 
W$<KKl>«WB(KKll 

20  CONTINUE 
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consist  of  a  DO  loop  which  preserves  the  x,  y,  and  z  coordinates  of  the  origin 
of  ray  XB,  and  the  x,  y,  and  z  coordinates  of  the  direction  cosines  of  ray  WB. 
Therefore,  any  subsequent  subroutine  can  find  the  starting  point  and  direction 
cosines  of  the  ray  in  locations  XS  and  SW,  respectively. 

The  statement 


CALL  TRACK 


calls  Subroutine  TRACK  to  coordinate  all  the  processing  for  a  ray  until  it 
emerges  from  the  far  side  of  the  vehicle  and  provides  the  calculated  output 
for  each  ray.  Control  will  not  return  to  Subroutine  GRID  until  calculations 
and  outputs  of  results  are  complete  for  the  current  grid  square. 

The  statement 


if  t leeo.Ge.NGi err (Return 


tests  to  determine  if  the  maximum  allowable  number  of  errors  had  occurred  in 
Subroutine  Gl;  if  so,  control  is  returned  to  the  MAIN  program. 

The  statement 


IFf IRATSK.EQ.NOJGOTO 


tests  to  determine  if  all  grid  cells  are  to  be  processed  or  If  a  random 
number  of  cells  are  to  be  skipped.  The  variable  IRAYSK  is  compared  to  the 
variable  NO  (NO-O) ;  if  equal,  no  grid  cells  are  to  be  skipped,  and  control 
is  returned  to  the  beginning  of  the  DO  loop  to  process  the  next  cell/ray. 

The  statements 


C 

CIO  COMPUTE  RANDOM  NUMBER  OF  CELLS  ( 0-25)  TO  BE  SKIPPED 

C 

MSHIFTmRAN (•! ) #2S« 

FBITE  <6*90?) mShIfT 
KK>KK*MSH1fT 
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are  used  to  compute  a  random  number  between  0  and  24  for  the  random  number 
of  cells  to  be  skipped.  This  value  is  printed  out,  and  the  index  of  the 
loop  is  increased  by  the  number  of  cells  to  be  skipped. 

The  statements 

40  KK»«K*1 

IF <KK#l£ iNENniGOTO  4 

RCTUflW 

End 


pass  the  control  back  to  the  beginning  of  the  loop  until  the  number  of  cells 
to  be  processed  is  reached-  When  all  cells  are  processed,  control  is  returned 
to  the  MAIN  program. 
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Subroutine  TRACK 


Subroutine  TRACK  has  the  function  of  accepting  grid  coordinates  from  Sub¬ 
routine  GRID  and  initializing  the  "firing"  of  a  ray.  It  follows  the  ray 
through  all  points  of  contact,  records  the  pertinent  data,  and  punches  both 
the  identification  and  the  data  cards  for  each  ray  for  subsequent  use  in 
vulnerability  analysis  studies.  This  output  consists  of  the  line-of-sight 
thickness  of  each  geometric  region  traversed  by  the  ray,  the  obliquity  (or 
angle  of  incidence)  of  the  ray  with  respect  to  each  intersect  encountered, 
and  the  normal  or  perpendicular  distance  through  the  region  following  the 
intersect . 

The  statements 


DIMENSION  XP  <  3  > »ERR0R<2) 

C0MM0N/P*REN/Xe<3>  «*B  <3>  *1R 

COMMON/6tOM/LiASE,HlNtROUT,LfiI»LRO,PlNf *IgRR.DIST 

C0MM0N/UNc6EM/NRPPiNTRlP»NSc*L*Ne0DV*NRM*Jltl,TRlP»LSCAl.»bRC8D» 
1  tDATi.LRIN.LROT.LIO.LOCO*.li5.l30»LBODVfNASc*KLoOP 
CnHHON/oTRACK/Dl*02'KHlT»LMAX»TR(200l *XeSt3) *tR5TRTt leNCt 
l  I TR  1 200 > .CA.CE.SA.SE 

COMMON/CAL/NIR* SLOS a ANQLE tNTYPE tSSPACC *C* XS ( j)  tMSOtf  travel* 
l  Sw  tV*H*IVIH 

CDMMON/CONTRL/I TESTA • I RAYSK  t IENTLV *  I VOLUM* IMOT  < I T*P£$,NQ* I YES 

COMMOM/wjLT/LIRFOtNaiERR 

CnMMON/HOTT/VREE.MREE 

COMNON/lSU/uSURf 

COMMON/CELL/CELSIZ 

C(1MMON/ERR/IERRO 


dimension  a  three-element  array,  XP,  which  is  used  to  store  the  x,  y,  and  z 
coordinates  of  the  current  position  of  a  point  along  the  ray;  dimension  a 
two  element  array,  ERROR,  used  to  store  alphanumeric  data;  and  pass  infor¬ 
mation  Into  and  out  of  this  subroutine  via  the  COMMON  statements. 


The  statements 


C 

901  FORMAT (E6*l*lXiF6. 1*13* IXtET.Z* IX. ETa2»4I2* 13* 1X*2IJ» 

1  lX,F0*3*lX*Fa.3) 

9fl?  FnRMAT<2(U«PT,2*F7.2#r*.l.l3»FT.2)  lx*  U**X.A6> 

903  FORMjT ( 31H  nUh§£R  OF  INTERSECT  IONS , AT *200) 

9q4  FORMAT  t // 1 


242 


TN  4565-3-71  Vol  II 


?ORM*U  IMG.  16*0  ITEM  IN  CELL  (  *U»  1«*»  U*  »5*» 

1  ZMH«.F6.l*5X.2MV".f6.1) 


are  used  to  format  data  and  message  output. 
The  statements 

C 

£RRflH lj ) *  6H0  ITEM 

0»T*  ERROR (1) .ERR0R<2>/*H  ,*MIT£M/ 


are  used  to  fill  location  ERROR ( 1 )  with  four  Hollerith  blanks  and  ERROR ( 2 )  with 
Hollerith  word  ITEM. 

The  statements 


I12M096 

N*SC"-J 

IR«IRST«T 

L-l 


12 

initialize  program  variables.  112  Is  set  to  2  or  4096  and  is  used  for 
packing  information  into  each  word  of  the  ITR  array.  NASC  is  set  to  -1  to 
indicate  a  new  ray  is  being  started.  IR  is  initialized  to  IRSTRT,  the 
starting  region  number  of  the  ray.  1  represents  the  number  of  intersections 
and  is  initialized  to  one  to  start  the  ray  since  it  is  used  as  an  index  to 
store  intersect  data. 

The  statements 


K  H I  T  ■  0 

JCNT-o 

MSKRT"0 

MTARGM 

MaRmRMq 

MWOL  *0 


initialize  KHIT  (the  number  of  components  hit  for  this  cell);  counter  JCNT  (the 
number  of  spaces  encountered);  skirting  flag,  MSKRT;  armor  flag,  MARMR,  and 
interior  volume  flag,  MVOL,  all  to  zero.  The  target  flag,  MTARG ,  is  initialized  to 

one. 
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The  statements 


C 

DO  10  IM.200 
TTR  (11*Q 

r*m*0» 

lo  continue 


consist  of  a  DO  loop  which  zeros  two  200  element  arrays,  ITR  and  TR.  ITR 
is  used  to  store  in  packed  form  the  surface  number,  the  body  number,  and 
the  number  of  the  next  region.  TR  is  used  to  store  the  line-of-sight 
distance  from  contact  to  contact. 

The  statement 


C 

ci  SUBROUTINE  ai  WILL  RETURN  WITH  $1-0I$TANCE  THRU  Rc0lON  IR, 

c  IRPHIM-TME  next  ReaiON  number*  xp-intcrsccT  or  next  region 

c 

20  CALL  91 (Sl,IRPRIM,XPl 


is  used  to  call  Subroutine  G1 .  Subroutine  G1  is  given  the  current  region 
number  where  the  ray  is  located,  the  location  of  the  point  along  the  ray, 

“  the  direction  cosines  of  the  ray  at  that  point  via  the  COMMON  statement 
’M.  Subroutine  G1  returns  to  Subroutine  TRACK  with  the  distance  to 
the  next  region,  the  number  of  that  region,  and  the  new  position  of  the 
point  along  the  ray  * 

The  statement 


IF ( |RPOIM,lT *  0 ) Rf TURN 


tests  to  determine  if  the  region  number  returned  by  Subroutine  G1  is  negative 
I  negative,  an  error  has  occurred  in  Subroutine  G1  and  control  is  therefore 
returned  to  Subroutine  GRID. 

The  statement 


stores  the  line-of  sight  distance  from  the  previous  position  of  point  XP  to 
the  present  contact  in  array  TR  indexed  by  intersection  counter  L. 
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The  statement 


KL5URF»L5URF*7 


adds  seven  to  variable  LSURF  since  the  surface  number  (1-6)  of  the  present 
contact  could  be  negative  If  the  contact  is  an  exit  intersect.  This  is  done 
to  avoid  packing  a  negative  number. 

The  statements 


t.OC*L  IRFO*  I  R“  1 

CALL  UN2 (LOC  *DdM  *  I DENT  > 

iocmt-xoent-i 


retrieve  the  space  code  for  the  region  traversed  for  later  use  in  this 
subroutine. 

The  statement 

pack  SURFACE  NUMBER  “  BOOT  NUMBER  -  NEXT  REGION  NUMBER 
C  lTfl<L)«(KLSURF*ll2*NA$C»*U2*IRPRI" 


stores  the  surface  number,  the  body  number,  and  the  number  of  the  next  region 
in  array  ITR  indexed  by  the  intersect  number  L.  These  three  items  are  packed 
into  one  word  using  12  binary  bits  per  item. 


The  statements 


If (NaSc*LE'nRPP) IRpRI*»0 

IF ( IRPRIM* £0*0 1  GOTO  100 
jR» j  RPR  I M 
KMl T*KMl T* 1 


are  used  to  test  the  body  number  of  the  present  intersect  against  the 
highest  RPP  number  since  the  target  geometry  and  ray  origin  are  con¬ 
tained  in  the  highest  numbered  RPP;  all  other  body  numbers  have  higher 
identification  numbers.  If  the  present  intersect  occurs  at  an  RPP,  the 
next  region  identifier,  IRPRIM,  is  set  to  zero.  If  IRPRIM  is  set  to  zero, 
the  end  of  the  ray  has  been  reached,  and  control  is  transferred 
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to  record  the  results  of  the  ray.  If  the  present  intersect  is  not  an  RPP, 
the  present  region  variable  is  updated  to  the  new  region  number  in  prepara- 

c°ntinuln8  the  ray»  and  the  number  of  components  hit  along  the  ray, 
KHITS,  is  incremented  by  one. 

The  statements 


IF CL*0T»1)G0T0  *0 
C 

C*  COMPUTE  DISTANCE  FROM  ORID  PLANE  TO  FIRST  INTERSECT  OF  TARGET 


01=-< <XP<l)-xBS(ll l*W$(l>  ♦ 
I  ♦  (XP(3)-XBS(3>)*WS(3I  ) 
GOTO  60 


t  XP I  2 ) -X8S I  2 ) )*WS(2I 


are  used  to  determine  if  the  current  intersect  is  the  first  intersect  along 
the  ray.  If  it  is,  the  distance  along  the  ray  path  from  the  intersect  to 
the  original  point  on  the  grid  plane  (before  back-off)  is  computed.  This 
distance  is  positive  if  the  intersect  occurs  on  the  front  side  of  the  grid 
plane,  or  negative  if  the  intersect  occurs  on  the  back  side  of  the  grid 
plane.  Control  is  then  transferred  around  the  section  that  determines  the 
space  code  since  the  intersect  being  considered  is  the  first  intersect. 


The  statements 


C 

C4  TEST  SPACE  IDENTIFICATION  C00E 

C  0  ■  NO  SPECIAL  MATERIAL  10-Si<IRT  20PARMOR  30*TaRGET 

C  -1.2-9. 11-19. ,91-99  •  INTERIOR  VOLUME 

C  1  •  exterior  volume 

C 

40  if ( idenT .eq.o  >goto  60 

TFIIDENT-(IdENT/i0)4io.EQ.o>GOTO  so 


are  used  to  test  the  space  code  previously  unpacked  from  the  identification 
codes  section  in  the  MASTER  array.  If  IDENT,  the  space  code  for  the  region 

SSr  Jav#rsed*  equal  C°  zer°’  n°  special  material  was  in  the  region.  If 

nfEin  i?nn°t  e^au  t0  Z?r°’  the  next  IF  statement  tests  for  an  IDENT  code 
of  10,  20,  or  30  by  utilizing  integer  division. 
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The  statements 


KwIT»KhIT-1 
If  noeNT.NE.l)MV°t*l 
anTO  60 


are  executed  if  IDENT  is  not  equal  to  0,  10,  20,  or  30,  which  means  that  the 
following  region  is  either  interior  volume  or  exterior  volume.  Therefore 
KHITS,  the  counter  for  the  number  of  components  hit  along  this  ray,  is 
decremented  by  one  since  the  present  intersect  is  an  exit  intersect  into 
space.  IDENT  is  compared  with  one  to  determine  the  type  of  space  (1  = 
exterior  volume) .  If  not  equal  to  one,  the  interior  volume  flag,  MVOL,  is 
set  to  one. 

The  statements 


50  If (IDENT. EQ.2oJMARMR»1 
If  aDENT.eo,3oJMl*ft3*t 
If (IDENT. EO.IO>MSKRT»l 


are  executed  if  it  was  previously  determined  that  the  space  code,  IDENT,  was 
equal  to  10,  20,  or  30.  These  statements  determine  which  of  the  three  values 
IDENT  equals  and  a  flag  is  set  accordingly.  For  IDENT  =  20,  the  armor  flag, 
MAEMR,  is  set  to  one.  For  IDENT  =  30,  the  target  flag,  MTARG ,  is  set  to  one. 
For  IDENT  =  10,  the  skirt  flag,  MSKRT,  is  set  to  one. 

The  statements 


60  L»L*I 

If (L.LE.Z00i6oTo  20 
WRITE  <6*<>03> 

STOP 


increment  by  one  the  index  for  arrays  TR  and  ITR.  If  this  index  does  not 
exceed  200,  control  is  returned  to  locate  the  next  intersect  since  there 
is  room  in  storage  for  200  intersections  per  ray.  If  index  L  becomes 
greater  than  200,  a  message  is  written  out  to  indicate  that  more  than  200 
intersects  have  occurred,  and  the  STOP  statement  causes  the  program  to  be 
terminated . 
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The  statements 


C 

C*  ENO  OF  RAY  OUTPUT  RESULTS 
C 

100  IF<L.EQ.1)RETURN 

IF  <  ITaPE8.EQ.no.  ANO.IKOT.EQ.NO)  RE  Tu«c, 


egin  the  section  for  output  of  the  results  of  the  ray  intersections  and 
test  the  variable  L  to  determine  if  the  present  ray  has  had  any  inter¬ 
sections  with  the  target.  If  intersections  have  occurred,  a  test  is  made 
to  determine  if  any  results  are  to  be  either  printed  out  (ITAPE8=1)  or 
written  out  on  tape  1  (IWOT-l). 

The  statements 


C 

Ca  COMPUTE  OISTANCE  FROM  GRID  Plane  To  LAST  INTERSECT  OF  Target 

02»X0IST(X8S»*P)-SI 

02»-02 


compute  the  distance  from  the  last  contact  on  the  target  vehicle  to  the 
original  point  on  the  grid  plane  of  the  target  (before  back-off).  The  dis¬ 
tance  is  computed  by  calling  Function  XDIST,  which  utilizes  the  standard 
distance  formula 


D  -  VIZ(X2-X1)2 


for  determining  the  distance  between  two  points.  The  quantity  in  SI  is  sub¬ 
tracted  since  this  is  the  distance  between  the  last  contact  point  on  the 
target  and  the  outer  edge  of  the  enclosing  RPP  (point  XP  on  the  ray  is 
presently  at  the  RPP  intersection).  The  distance  is  set  negative  if  the 
intersect  occurs  on  the  back  side  of  the  grid  plane,  or  positive  if  the 
intersect  occurs  on  the  front  side  of  the  grid  plane. 

The  statements 


!F(KHIT.QT.q) GOTO  105 
KMJT»KM1T*1 

MTaRO-o 
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are  used  to  determine  if  any  components  were  hit  along  the  ray.  If  no 
components  were  hit,  one  is  added  to  the  number  of  components  hit  variable, 
KBITS,  since  the  first  instruction  in  the  next  group  of  instructions  su 
tracts  one  from  KHITS.  The  target  flag,  MTARG ,  is  set  to  zero  since  the 
ray  missed  the  target  - 

The  statement 


105  KHITwKhIT-1 


is  used  to  decrement  the  number  of  components  hit  variable,  KHITS,  by  one 
since  the  last  intersect  along  the  ray  is  an  exit  intersect  of  a  component. 

The  statements 


IH»ABS(H/CELSI2  )*-5 
IF  I H » LT  *  0  * ) 

!V»ABSIV/CElSI2 
IF  l V ,l_T ■  0 •  '  IV— IV 


are  used  to  compute  the  grid  cell  number  in  the  horizontal  direction  (IH) 
and  in  the  vertical  direction  (IV)  from  the  center  of  the  grid  plane. 

The  statement 


l7  OUTPUT  QUID  CELL  AND  TaR&ET  IDENTIFICATION  DATA 
IF(ITAPE8.EO.NO)GOTO  no 


tests  to  determine  if  output  to  the  printer  is  to  be  suppressed  (ITAPE8-0). 


The  statements 


llYl\  !r.JSl!MREf.VREF.IVlM.Ol*Oa.«|K»T.«TAW,MARMR,HVOL. 

1  KHIT.IM*IV»H.V 
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are  executed  if  output  to  the  printer  is  not  to  be  suppressed  (ITAFE8=1) . 
Two  lines  are  skipped  before  the  cell  identification  data  is  written  out. 

The  statement 


HO  IF<I#OT.Ea.IVES|WRITEtl*901>HRef»VB6;F.IVIMiDliO2»MSKRT.HTARfl. 
I  M*AMR,MVOL»KHIT*lH.lV,MtV 


tests  to  determine  if  cell  identification  data  is  to  be  written  out  on  the 
data  output  tape  1, 

The  statements 


C 

CA  OUTPUT  RAY  INTERSECTION  DATA 
C 

LMAX«l 

L»0 

THAVEL"TRin 


equate  variable  LMAX  to  the  index  of  the  last  entry  in  arrays  TR  and  ITR, 
set  index  L  to  0,  and  store  the  distance  travelled  from  the  origin  of  the 
ray  to  the  first  intersect  with  the  target  in  location  TRAVEL. 

The  statement 


DO  goo  KIK-i.LMAX.2 


begins  a  DO  loop  for  writing  out  the  ray  intersection  data.  Ray  intersection 
data  will  be  written  out  at  two  components  per  line.  There  will  be  less 
than  LMAX/2  lines  if  spaces  are  encountered  through  the  target. 

The  statements 


J£RR0"1 

L«LM 

IF<L«QE.LHaX)RETURN 


set  the  index,  JERRO,  for  the  two-element  array,  ERROR,  to  a  value  of  one, 
and  increase  index  L  by  one  to  begin  work  on  the  next  intersection.  After 
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incrementing  L*  a  test  is  made  to  determine  if  all  intersections  have  been 
processed  - 

The  statement 


compute  data  output  for  first  half  or  unc 

c 

CALL  CALC 


is  used  to  call  Subroutine  CALC  to  compute  information  for  the  first  half  of 
the  line  of  output*  Subroutine  CALC  will  compute  the  following  each  time  it 
is  called; 


MIR  -  Region  identification  (vehicle  component) 

SLOS  -  Line-of-sight  distance 
ANGLE  -  Obliquity  angle 

SN  -  Normal  distance  through  region 
NTYPE  -  Type  of  space  after  NIR  (none=0 ,  end  ray  -  9) 
SSPACE  -  Line-of-sight  distance  through  space 


If  a  space  is  encountered,  Subroutine  CALC  will  update  index  L, 


The  statements 


IF (NlP.NEtO>OOTQ  113 

JERPQ*2 

IERR0-IEP«0*1 


first  determine  if  the  component  code  is  equal  to  zero-  If  it  is,  then 
the  index*  JERRO,  for  the  two~element  array,  ERROR,  is  set  to  two,  and 
the  counter,  IERRO,  for  the  number  of  zero  component  code  errors  is 
incremented  by  one. 

The  statement 

113  IF ( SSPaCE. NE.o*  > jcnt«jcnt*j 


tests  to  determine  if  there  was  any  space  in  the  region.  If  SSPACE  is  not 
equal  to  zero,  it  contains  the  line-of-sight  distance  through  space  of  the 
region.  Therefore,  counter  JCNT,  which  keeps  track  of  how  many  spaces  are 
hit  along  the  ray,  is  incremented  by  one* 
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The  statements 


Ifl  SAVE  Data  OUTPUT  FOR  FIRST  HALF  OF  LINE 

NIR1-NIR 

SLOSl-SLOS 

angle i« angle 

SN1«SN 

NTYPEj-NTYPE 

SPACE  1 »5SP*CE 


save  the  values  returned  from  Subroutine  CALC  (for  later  output  of  information 
on  the  first  half  of  the  present  line)  in  preparation  for  calling  Subroutine 
CALC  for  data  on  the  next  intersect  for  output  of  the  second  half  of  the  pre¬ 
sent  line  of  data. 

The  statements 


L“L*  1 

IFil^LT.LMAKIOOTO 


increment  array  index  L  by  one  in  preparation  for  retrieving  information 
about  the  next  intersect.  A  test  is  made  to  determine  if  the  last  inter¬ 
sect  has  already  been  processed.  If  it  has  not,  control  is  transferred  to 
call  Subroutine  CALC. 

The  statements 


SLn5"o • 
ANGLC*0  * 
SN«o. 
NTVPE-0 
SSPaCE-0* 
GOTO  120 


zero  the  variables  calculated  by  Subroutine  CALC  for  printout  on  the  second 
half  of  the  component  card  if  the  last  intersect  has  already  been  processed. 
Control  is  then  transferred  around  the  calling  of  Subroutine  CALC. 
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The  statement 


Ctl  COMPUTE  DATE  OUTPUT  FOB  SECOND  HALF  OF  LINE 
C 

115  CALL  CALC 

is  used  to  call  Subroutine  CALC  to  compute  information  on  the  next  intersect 
for  the  second  half  of  the  present  line  of  data. 

The  statements 

IF (NIR.NE.O)GOTO  117 

JERB0"2 

IFRfl0«IERR0M 


determine  if  the  component  code  is  equal  to  zero.  If  it  is,  index  JERRO 
for  two-element  array  ERROR  is  set  to  two,  and  counter  IERRO,  representing 
the  number  of  zero  component  code  errors  is  incremented  by  one. 

The  statements 


117  IF(SSPAC€.EO.O.>GOTO  130 
120  JCNT«JCNT*l 


test  for  space  in  the  region  by  determining  if  SSPACE  has  a  value  for  line-of- 
sight  distance  through  space.  If  space  was  encountered,  counter  JCNT,  which 
keeps  track  of  how  many  spaces  are  hit  along  the  ray,  is  incremented  by  one. 

The  statement 


130  N»L*JCNi 


computes  the  number  of  components  hit  by  subtracting  the  number  of  spaces 
encountered  from  the  number  of  intersects. 
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The  statements 


C 

Cl  2  TEST  TRICK  FLAG 

C  501  *  TRICK  EDGE  502  *  TRACK  FACE 

C  IF  NORMAL  DISTANCE  10  INCHES  RAY  ENTERS  TRACK  FaCE 

C 

IF(N1R1,NE.501)GOTO  UO 
IF (SNi.LT  » i o . ) N I R i *5o2 
UO  IFtNIH.NE.SOPOOTO  150 
IF ( SN  .LT.10*)NtR«502 


are  used  to  determine  if  either  of  the  two  regions  for  the  present  line  of 
data  refers  to  the  edge  of  a  track.  If  the  tests  result  in  the  region  being 
identified  as  the  edge  of  a  track,  a  test  is  made  to  determine  if  the  normal 
distance  for  the  edge  of  the  track  is  less  than  10  inches.  If  the  normal 
distance  is  determined  to  be  less  than  10  inches,  it  is  considered  that  the 
ray  enters  the  face  of  the  track  rather  than  the  edge,  which  would  result 
in  a  10-inch-or-greater  normal  thickness. 

The  statements 


C 

Ci3  OUTPUT  RAY  INTERSECTION  OAlA 
C 

150  tFUWOT.EQ.IYES)FRITEIl«902tNIRl,SLOSl,SNl,ANGLEl,NTYPEl,SPACEU 
1  NIPtSLGS.SN, ANGLE » NT YPE  »  5SPACE  tlHtlVtN 

IF  {  ITAPES.EQ.1YESUHITE(6«902)NIR1.SlO$1«SN1»  ANGLE! »NTY»E 1 .SPACE  1 » 

1  N IR  *  SLOS t  Sn  « ANGLE  •  NTYPe  ♦  5SPaCE  »  Im*  IV  »Nt  £Rb0R  <J£RR{|  > 

IF  l  ITAPE8.E0.N0.AND.  JERRO.EO.zURITE  (6*9051  IH,  I  V*HREF ,  VREF 


are  used  to  output  the  information  computed  by  Subroutine  TRACK  and  Sub¬ 
routine  CALC.  If  IWOT  is  equal  to  one,  the  output  is  written  out  on  tape  1 
and  can  be  accessed  directly  by  the  AMSAA  Armored  Vehicle  Vulnerability" 
Programs.  If  ITAPE8  is  equal  to  one,  the  output  is  printed  out  to  be  used 
for  error  checking.  If  the  printer  is  suppressed  but  variable  JERRO  is  equal 
to  two,  indicating  that  a  zero  component  code  error  occurred,  grid  cell 
coordinate  data  is  written  out. 

The  statements 


C 


IFIL*GE.LMAX)RETURN 
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IF (nTYPE  *EQ»9>  RETURN 
200  CONTINUE 
RETURN 


test  to  determine  If  all  of  the  data  in  the  TR  and  ITR  arrays  have  been 
processed,  or  if  NTYPE  indicates  that  the  ray  has  left  the  RPP  containing 
the  vehicle.  If  either  condition  is  true,  control  is  returned  to  Sub¬ 
routine  GRID.  If  neither  condition  is  true,  control  is  returned  to  the 
beginning  of  the  DO  loop  to  process  the  data  for  the  next  ray  intersection. 
At  the  completion  of  the  DO  loop,  control  is  returned  to  Subroutine  GRID. 
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Subroutine  CALC 

Subroutine  CALC  is  called  by  Subroutine  TRACK  to  compute  the  normal 
distance  and  the  angle  of  obliquity  for  each  region  that  the  ray  passes 
through.  Subroutine  TRACK  calls  Subroutine  CALC  to  perform  these  calcula¬ 
tions  after  the  ray  has  passed  through  all  of  the  target  geometry.  Subroutine 
CALC  also  assigns  a  9,  indicating  termination  of  the  ray,  to  the  space  following 
the  RPP  containing  the  target  geometry. 

The  statements 


DIMENSION  *P(3) .TFmP  I  3) .TEMPI (3f  *  TeW(3| tTE*! 13) »*MID<3) , I£MP<*( , 
1  WN43)tWIO)«WAC3)«Mt3)tHF(a)tVFO) 

DIMENSION  MASTER ( }0000> 

COMMON  ASTEP  <10000) 

C0MM0N/P»REM/KB(3) t«B  <3) •  IR 

CnMM0N/9E0M/tBASE,RIN.R0UT,LRItl.R0.RlNFtlCRR«0lST 

COMMON/UNC0EM/NRPP.NTRIP.NSCAL*NBQDT»NRNAXtLTRIP*LSCALiCRE00* 

1  LOA^A  ttRjNtLROT •LIO.lOcDA,II5*I3O,L0OoT*N*Sc »KLOOP 
COMMON/GTRaCK/Oi .D2.KHIT.4.MAX.TR120O) • XB$ (3) • I«STRT t l£NC . 

1  ITR<Z00) *  CA  »CE  *  5a • Se 

COMMON/C AL/NIR.SLOS. ANGLE tNTYPE.SSPAcE.U.XS(3>  *HS (3) .TRAVEL* 

1  SNtV.H.IVIH 
COMM0N/WALT/LIRF0.NGIERR 


are  used  to  dimension  arrays  and  to  pass  information  into  and  out  of  this 
subroutine . 

The  statement 

EQUIVALENCE (MASTER* ASTER) 

is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 

The  statement 

heal  Nr <3) 

is  used  to  declare  the  three-element  array  NF(3)  as  a  real  variable. 
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The  statements 


901  FORmaT<1MO#15HTHATS  ALL  FOLKS//! 

902  FORMAT<iHo.l7H0OD  ITYPE  IN  CALC*5X«6HlTYP£*« 1s«*HnbOb» 1$/ 

1  lftM  RETURN  TO  TRACK//! 

903  FORMAT (1Mo»23HaRS  0I0  NOT  FlNo  NORMAL* 

90*  FORMAT (//SH  NORM/jH  NI R» t II 0 * 5* *6«I T VPE»« U 0 • 5*»*HNBO»f 1 10»5* « 

1  0MLSURF»»I10/*M  «B"*3E20.10/*H  *S«»3E20#10/*H  XR»»3C2o»e/ 

2  *H  X0».3E2O.1O/*H  *I*»3E20# 10^0*  *NOS»#j£20.10J 

90s  format osH  error  in  calc  a  trc  has  ri  ■  R2  ) 

906  FORMAT (42M  ePPOR  IN  CaLC  BaO  LSUHf  FOR  BOX  or  Ra»  1 


are  used  to  format  data  and  message  output. 


The  statements 


C 

ci  retrieve  for  present  intersect  the  surface  number# 

C  BOOY  NUMBER#  and  NEXT  REGION 

C 

CALL  OPENK <L»LSURF»NB0«NIR1 

ir «nir,gt.o)GOTo  10 
KRITE  *m*901 > 

RETURN 


are  used  to  first  call  Subroutine  OPENK  to  unpack  three  items  of  information 
(surface  number,  body  number,  and  the  region  number  following  the  present 
intersect)  about  the  present  intersect,  L,  from  the  ITR  array  established  by 
Subroutine  TRACK.  The  region  number  following  the  present  intersect  is  tested 
for  a  value  of  zero  since  zero  was  assigned  to  the  region  outside  of  the  RPP 
containing  the  target  geometry.  If  the  region  number  is  greater  than  zero. 
Subroutine  CALC  is  continued.  If  not,  all  computations  for  the  present  ray 
have  been  completed.  Therefore,  a  message  is  printed  stating  this  fact, 
and  control  is  returned  to  Subroutine  TRACK. 

The  statements 


C?  COMPUTE  TRAVEL  •  L INE-0F-S1GMT  DISTANCE  TO  ThIS  REGION 

c  slos  -  line-of«sigmt  oisTance  through  this  region 

c  XI  COORDINATES  OF  INTERSECT  POINT 

c  10  SL0S"TR  < L ♦  1  * 
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00  20  m.3 

XT (I  I -XS  tl > ♦TRaVCL**S(I) 
20  CONTINUE 

travel«travel*slos 

LSURF"LSURF-t 


are  used  to  retrieve  the  line— of— sight  distance  through  the  region  following 
the  present  intersect.  The  DO  loop  updates  the  contact  point  coordinates 
from  the  origin  of  the  ray  to  the  present  intersect  position.  The  distance, 
TRAVEL,  is  updated  by  adding  the  line-of-sight  distance  through  the  region 
following  the  present  intersect.  Seven  is  subtracted  from  the  surface 
number,  LSURF,  as  unpacked  by  Subroutine  OPENK,  since  seven  was  added 
before  LSURF  was  packed  by  Subroutine  TRACK  to  avoid  packing  a  negative 
number. 

The  statements 


C 

Cl  SET  THE  CONSTANT  MULTIPLIER  OF  THE  DIRECTION  COSINES  OF  NORMAL 
C  TO  *1  FOR  ENTRY  OR  -1  FOR  EXIT 

C 

XNOS"  I  ■ 

IF<LSURF.LT,(jtXNOS»-i. 


set  the  variable  XNOS  to  a  +1  or  -1  depending  upon  the  sign  of  LSURF.  XNOS 
is  a  constant  multiplier  of  the  direction  cosines  which  is  used  to  direct 
the  computed  normal  into  the  body  if  an  entry  intersect  and  away  from  the 
body  if  an  exit  intersect. 

The  statements 


C 

C*  RETRIEVE  BODY  TYPE  AND  LOCATION  OF  DATA  FOR  INTERSECTED  BODY 
C 

LOC«LBOOY*3*<NBO-1 » 

CALL  UN2<L0CiITYPe.LDaTaJ 


are  used  to  retrieve  the  body  type  and  the  location  of  other  descriptive  body 
data  for  the  body  where  the  present  intersect  occurs. 

The  statements 


LSURF-UBS  (LSURF) 
ITYPE* I  TYPE* I 
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IF<ITYP£.GE.l.*NO.mPE.LE.12JGOTO  3& 

MR  ITE  (6i«o2l ITYPEtNBO 
RETURN 


are  used  to  obtain  the  absolute  value  of  the  intersect  surface  number  for 
use  in  the  body  routines.  One  is  added  to  the  variable  ITYPE  to  avoid 
a  zero  XTYPE  in  the  computed  GOTO  statements.  If  the  variable  ITYPE  is 
equal  to  1  to  12,  control  is  passed  to  the  correct  body  routine.  If  not, 
an  error  has  occurred  and  an  error  message  along  with  error  data  is  printed 
out  before  returning  to  the  calling  program.  Subroutine  TRACK. 

The  statement 


C 

C*  TRANSFER  to  SPECIFIC  BODY  SECTION  to  COMPUTE  DIRECTION 
c  COSINES  OF  NORMAL 

c  RPP  80X  SPH  RCC  REC  TRC  ELL  Ra*  ARB  TEC  TOR  *RS 

30  SOTOtSo*100«150*200*200*300  *350* AOQ »450 t500 »550 * &Q0 • • I  TYPE 


transfers  control,  according  to  the  body  type  of  the  intersect  being  con¬ 
sidered,  to  find  the  normal  of  the  body. 

The  statements 


CA  CHECK  THE  SPACE  CODE  and  ITEM  CODE  OF  THE  NEAT  REGION 
C 

*0  CALL  OPENK(L*l , DUM ,OUM,NEXREQ) 

ISP0T«LIRF0*NEXRE0-1 
CALL  UN? ( I  SPOT  f OUMt I DENT) 

ISPOT»lIRFO*NIR-1 
CALL  UN? ( I  SPOT  t NIRtQUM) 

IDENT-IDENT-1 


are  used  to  retrieve  the  space  code  of  the  region  following  the  next  intersect, 
and  also  to  retrieve  the  item  or  component  code  of  the  region  following  the 
present  intersect.  One  is  subtracted  from  the  space  code,  IDENT,  because  a  one 
was  added  when  IDENT  was  originally  packed  in  the  MAIN  program. 
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The  statements 


IF(IOEM-tIOENT/Jo)*10.NE.O»OOTO  *i 

NTYPE"0 

SSP*CE»o. 

RETURN 


test  the  space  code  of  the  region  following  the  next  intersect  to  determine 
if  it  has  a  special  identification  (10,  20,  30,  •  *  .  80,  90).  If  the 
material  has  a  special  identification,  NTYPE,  the  type  of  space  following 
the  next  intersect,  and  SSPACE, the  line-of-sight  distance  through  space 
following  the  present  intersect,  are  set  to  zero,  and  control  is  returned 
to  Subroutine  TRACK. 

The  statements 


*1  t"LM 

IF lt*l.LT.tM*XI0OTO  42 


are  executed  if  the  region  following  the  next  intersect  is  space.  The 
program  increments  to  this  next  intersect  and  tests  to  determine  If  it  is 
the  intersect  with  the  enclosing  RPP. 

The  statements 


IOENT-9 
5SPACE«1 .0E-4 
NTYPE»I0fNT 
RETURN 


are  executed  if  the  program  is  now  at  the  intersect  with  the  RPP.  IDENT, 
the  space  code  of  the  space  following  this  final  intersect,  and  NTYPE,  the 
type  of  space  following  this  final  Intersect,  are  both  set  to  9  to  indicate 
the  end  of  the  ray.  The  line-of-sight  distance,  SSPACE,  through  the  space 
prior  to  the  intersect  with  the  RPP  is  set  to  slightly  above  zero  so  that 
Subroutine  TRACK  will  count  this  last  space  as  one  of  the  spaces  encountered 
along  the  ray. 

The  statements 


*2  NTYPE*I0ENT 

SSPaCE*TR(t*l> 
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TRAVELER  AVEL*S5PaCE 
RETURN 

are  executed  if  the  next  intersect  is  not  the  last  intersect  along  the  ray. 
The  space  code  of  the  region  following  this  next  intersect  is  stored  in 
NTYPE  (the  type  of  space  of  the  region  following  the  next  intersect) ,  the 
distance  through  the  space  of  the  region  following  the  present  intersect  is 
retrieved  from  the  TR  array  of  Subroutine  TRACK,  and  the  line— of —sight  dis 
tance  to  the  next  intersect  is  computed  before  returning  to  Subroutine  TRACK. 


The  statements 


C7  rpp  SECTION  FOR  COMPUTING  the  direct  ION  COSINES  of  the  NORMAL 

c 

50  we  ( 1 1 *0.0 

Wfi (2) »0 .0 

«e  1 3) »o  •  o 

GOTO (51 *52 t 53 « 5*. 55.561 *LSUHF 

51  WH(1)»XN0S 
GOTO  1(100 

52  WH(l)*-XNOS 
GOTO  1000 

53  WH ( ? ) • XNOS 
GOTO  1000 

5*  W8(2>«-XN0S 
GOTO  1000 

55  wR ( 3 1 *XN0S 
GOTO  1000 

56  WB ( 3 1  * -XNOS 

GOTO  moo 


are  used  to  initialize  to  zero  all  three  coordinates  of  the  direction  cosines, 
WB  for  the  normal.  The  coordinate  for  the  specific  direction  cosine  is  then 
set  depending  upon  which  face  of  the  RPP  was  intersected.  The  other  two 
coordinate  values  of  the  direction  cosines  will  remain  at  zero  since  le 
bounding  planes  are  parallel  to  the  coordinate  axes. 


The  statements 

CR  00*  section  for  computing  the  direction  cosines  of  the  normal 

C  100  CONTINUE 

KC0MWLSURF-<LSURF/2>*2 

IF(KcON.EQ,0)XNOSw-KNOS 

are  used  to  determine  if  the  intersected  surface  of  the  box  is  odd  or  even, 
and  change  the  sign  of  XNOS,  the  constant  multiplier  of  the  direction  cosines 
if  the  surface  number  is  even.  This  is  done  since  the  even  numbered  sides 
are  at  the  ends  of  the  length  vectors,  and  the  direction  of  the  normal  is 
determined  from  the  direction  of  the  particular  length  vector.  The  direction 
of  the  normal  is  directed  such  that  the  angle  between  the  direction  o  tie 
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ray  and  the  direction  of  the  normal  is  less  than  90  degrees.  This  means 
that  the  normal  direction  is  into  the  body  for  an  entry  intersect  and  away 
from  the  body  for  an  exit  intersect. 


The  statements 

IF (LSURf-3) 10** 1 03* I  Oft 
103  t-1 

GOTO  no 
10*  1-2 

goto  no 

105  IF(LSUHF»LT.5)QOT0  103 
1-3 

set  an  index,  I,  according  to  the  side  number  of  the  intersect  such  that  1=2 
for  sides  one  or  two,  1=1  for  sides  three  or  four,  and  1=3  for  sides  five  or 
six.  This  index  is  used  to  retrieve  the  coordinates  from  the  ASTER  array  of 
the  desired  length  vector. 


The  statements 

110  CALL  UN2(LDATA,tEMP(4)  .lEMPnn 

LOATA-LOATA.l 

CALL  UN?{LOATA»IEMP(2) ,IEMP til) 

are  used  to  retrieve  and  unpack  the  pointers  to  the  location  of  the  coordinates 
of  the  vertex  arid  length  vectors  in  the  ASTER  array. 

The  statements 

00  US  J- 1  * 3 
(.h-temp  ti) 

LV-IEMPU) 

M-J-i 
I JK-LH*m 
I JKi»LV*M 

Temp  t ji » a step 1 1 jk»  *aste« t i jki ) 

HK-j-i *IEMP<a|  1 

TEMP. ( J) -ASTER (MX) 

115  CONTINUE 

consist  of  a  DO  loop  which  retrieves  from  the  ASTER  array  the  coordinates  of 
the  vertex,  TEMPI,  and  the  coordinates  of  the  end  of  the  desired  length  vector, 
TEMP. 


The  statements 

CALL  DcOSP(TEMPi .TEMP, 481 
DO  120  J*l*3 
WR<J>-XNOS*WBt J) 

120  CONTINUE 
GOTO  1000 

compute  the  direction  of  the  normal  using  Subroutine  DCOSP.  The  DO  loop 
multiplies  the  direction  of  the  normal  by  the  constant  multiplier,  XNOS ,  such 
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that  the  direction  of  the  normal  is  into  the  box  for  an  entry  intersect  and 
away  from  the  box  for  an  exit  intersect. 

The  statement 

C<J  SPH  SECTION  FOR  COMPUTING  the  DIRECTION  COSINES  Of  the  NORMAL 

c 

130  CALL  UN2(L0ATA.LV,0UM, 

is  used  to  retrieve  and  unpack  the  pointer  to  the  location  of  the  coordinates 
of  the  center  of  the  sphere  in  the  ASTER  array. 

The  statements 


on  160  1"1»3 
M«I«l*Lv 

TEM(I>«aST£R«mJ 

160  CONTINUE 


consist  of  a  DO  loop  which  retrieves  from  the  ASTER  array  the  coordinates  of 
the  center  of  the  sphere. 

The  statement 


CALL  OCOSP (XI .Tcm.wbi 


is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  the 
normal  from  the  intersect  point  to  the  center  of  the  sphere. 

The  statements 


00  1T0  I • 1 1 3 
Wr<I>«XNOS*WB(U 

170  continue 

GOTO  1000 


are  used  to  direct  the  normal  such  that  it  is  into  the  sphere  for  an  entry 
intersect  and  away  from  the  sphere  for  an  exit  intersect. 
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The  statements 


C 

CIO  RCC  AND  sec  SECTION  for  computinb  DIRECTION  COSINES  OF  NORMAL 
C  FOR  AN  INTERSECT  WITH  EITHER  PLANAR  SURFACE 

C 

200  IF<LSUHF-2)202,2Q1,210 

201  *NOS“-XNOS 

are  used  to  determine  which  surface  of  the  right  circular  cylinder  or  right 
elliptic  cylinder  has  been  intersected  and  to  change  the  sign  of  XNOS,  the  con¬ 
stant  multiplier  of  the  direction  cosines,  if  the  intersected  surface  is  the 
top  planar  surface. 

The  statement 

202  CALL  UN2 (L0ATA.LVi.LV2J 


begins  the  section  for  computing  the  direction  of  the  normal  for  an  intersect 
with  either  planar  surface  of  an  RCC  or  REC.  This  statement  retrieves  and 
unpacks  the  pointers  to  the  location  of  the  coordinates  of  the  vertex  and 
height  vector  in  the  ASTER  array. 

The  statements 


DO  203  1*1*3 

M*I-i 

UKlAM.LVi 

IJK2*M.LV2 

TEMdUASTERtlJKl) 

temi 1 1 y »aSteR  t i j*i >  *astcr ( i jKg) 

203  CONTINUE 


consist  of  a  DO  loop  which  retrieves  from  the  ASTER  array  the  coordinates  of 
the  vertex,  TEM,  and  the  coordinates  of  the  end  of  the  height  vector,  TEMI. 

The  statement 

CALL  OeOSP  ITEM. TEMI » *B> 
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is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  the  height 
vector  (the  normal  for  an  intersect  with  one  of  the  planar  surfaces). 


The  statements 


DO  20*  I"l»3 
MS (I)HXNOS*W0  (I) 
20*  CONTINUE 
aoTo  iooo 


are  used  to  direct  the  normal  of  the  intersected  planar  surface  such  that  its 
direction  is  into  the  RCC  or  REC  for  an  entry  intersect  and  away  from  the 
RCC  or  REC  for  an  exit  intersect. 

The  statements 


c 

Cl  I 

c 

c 

210 


ICC  AND  REC  SECTION  FOR  PROJECTING 

■ROM  The  QUADRATIC  surface 


CALt  UN2 (LQATA.lY.LH) 
LPl»MASTER(i.DATA*i ) 


Intersect  onto  height  vector 


begin  the  section  for  computing  the  direction  of  the  normal  for  an  intersect 
with  the  quadratic  surface  of  the  RCC  or  REC.  These  statements  retrieve  and 
unpack  the  pointers  to  the  location  of  the  coordinates  of  the  vertex  and 
height  vector  and  the  pointer  to  the  location  of  the  radius  in  the  ASTER 
array . 

The  statements 


on  2H  J»lO 
h«j-1 

l JKmLV*m 

TEM(J)maSTERIIJK) 

I J«1*LH*M 

TS*i ( J) -ASTER ( IJK>  FASTER  1 1 J«l» 
211  CONTINUE 


consist  of  a  DO  loop  which  retrieves  from  the  ASTER  array  the  coordinates  of 
the  vertex,  TEM,  and  the  coordinates  of  the  end  of  the  height  vector,  TEM1 . 
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The  statements 


CALL  DCOSP (TEM*XI,NN) 
CALL  0C0SP(TEH*TEM1.WI» 


are  used  to  call  Subroutine  DCOSP  twice  to  compute  the  direction  cosines  of  a 
vector  from  the  vertex  to  the  intersect  on  the  quadratic  surface  and  to  com¬ 
pute  the  direction  cosines  of  the  height  vector. 

The  statements 


SUMao* 

On  213  JM,3 
SUM"  SUM*  WN  Ijl 

212  CONTINUE 


initialize  the  variable  SUM  to  zero.  The  DO  loop  computes  the  dot  product  of 
the  two  unit  vectors  just  computed  from  the  two  calls  to  Subroutine  DCOSP. 
This  results  in  the  cosines  of  the  angle  between  the  two  vectors. 

The  statements 


00  214  J"1 *3 
XP<JI«SUM*X0I5T (TEK'XI) 

xp(j)"xp(j)«wi t 

214  CONTINUE 


are  used  to  compute  the  distance  from  the  vertex  along  the  height  vector  to 
the  intersect  projected  onto  the  height  vector,  to  multiply  this  distance 
by  the  direction  codines  of  the  height  vector,  and  to  add  the  coordinates  of 
the  vertex  to  obtain  the  coordinates  of  the  intersect  projected  onto  the 
height  vector. 

The  statement 


Cl  2 


transfer  TO  rec  section  to  compute  direction  cosines  of  normal 
if  an  intersect  on  the  quadratic  Surface  of  an  h£c 

if (ITYPE,EQ.5)0OTO  250 
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now  determines  if  the  intersect  is  on  an  RCC  or  REC,  since  the  statements 
from  Statement  200  are  common  to  both  bodies. 

The  statement 

CO  COMPUTE  THE  DIRECTION  COSINES  Of  TmE  NORMAL  If  AN  INTERSECT  ON 
C  QUADRATIC  SURPACE  Of  AN  RCC 

C 

CALL  DC0SP(*I.XP,xB) 


is  executed  if  the  previous  test  determined  that  the  intersect  is  on  a  right 
circular  cylinder.  This  statement  calls  Subroutine  DCOSP  to  compute  the 
direction  cosines  of  the  normal  from  the  intersect  point  to  the  intersect 
point  projected  onto  the  height  vector. 

The  statements 


00  220  • 3 

WR  (J)  <J) 

220  CONTINUE 
GOTO  1000 


are  used  to  direct  the  normal  for  an  intersect  on  the  quadratic  surface  such 
that  it  is  into  the  RCC  for  an  entry  intersect  and  away  from  the  RCC  for  an 
exit  intersect. 

The  statements 

CiA  COMPUTE  THE  DIRECTION  COSINES  Of  TmE  NORMAL  If  AN  INTERSECT  On 
C  QUADRATIC  SURFACE  OF  AN  REC 
C 

250  L0ATA-L0ATA.1 

CALL  UN2(LDATa»LRi*LR2> 


are  executed  when  it  has  been  determined  in  the  RCC/REC  section  that  the 
intersect  occurs  on  the  quadratic  surface  of  an  REC.  These  statements  retrieve 
and  unpack  the  pointers  to  the  coordinates  of  the  semi-major  and  semi-minor 
axes  of  the  REC  in  the  ASTER  array. 
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The  statements 


00  255  J*10 
I 

TEMP  ( J) • A5TER ( I JK] ) *XP [Jl 

IJK2MM*Lfl2 

tfMP j (jJmSTE«<IJKz>*XP<J> 
255  CONTINUE 


consist  of  a  DO  loop  which  retrieves  from  the  ASTER  array  the  coordinates  of 
the  semi-major  axis  and  the  semi-minor  axis  of  the  REC. 

The  statements 


M»X0I3TUP,T£MP) 

4?»X0l3TtXPlTCMPi) 


call  Subroutine  XDIST  twice  to  compute  the  distance  between  the  projected 
intersect  onto  the  height  vector  and  the  end  of  the  serai— major  axis*  and  to 
compute  the  distance  between  the  projected  intersect  onto  the  height  vector 
and  the  end  of  the  semi-minor  axis. 

The  statement 


IPUl'QE»A2H)Oro  zao 


is  used  to  determine  if  the  semi-major  axis  of  the  REC  is  longer  than  or 
equal  to  the  semi-minor  axis. 

The  statements 


*2'*] 

TEMP ( 1 ) »TEMP1 (1) 
TEMP  t  g ) mTEmri (g) 

T£MP<3»-TemPi <  3> 
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are  executed  if  the  semi -minor  axis  is  longer  than  the  semi-majo^axis . 
These  statements  exchange  the  values  of  the  distance  from  point  XP  on  the 
height  vector  to  the  coordinates  of  the  semi-major  and  semi-minor  axes  such 
that  the  longer  distance  is  in  storage  location  Al.  The  coordinates  of 
the  semi -minor  axis  are  then  placed  in  location  TEMP. 

The  statement 


260  05QRTUl**i-A2«A2> 

is  used  to  compute  the  distance  from  the  center  of  the  intersected  ellipse 
to  the  focus. 

The  statement 

CALL 


is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  vector 
from  the  point  XF  on  the  height  vector  to  the  farthest  axis  coordinate. 


The  statements 


00  265  J"l»3 

TEMI J>«*P|J>*C*WN<JI 

TEH  i  (J)*XP< 

265  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  compute  the  coordinates  of  the  two  foci 
in  the  plane  of  the  intersect  ellipse. 

The  statement 

CALL  OeOSPITEM.XI.WH) 


is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  vector 
from  one  of  the  foci  coordinates,  TEM,  to  the  intersect  point  on  the  surface 

of  the  REC. 
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The  statements 


00  270  J»l»3 

TfM <  J) a?‘*Al*WN(J) *T£m ( J) 

2?o  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  compute  the  coordinates  of  the  end 
point  of  a  line  from  the  focus  coordinate,  TEM,  through  the  intersect  point 
on  the  surface,  XI,  with  a  length  equal  to  twice  the  distance  from  the  pro¬ 
jected  point  on  the  height  vector  to  the  farthest  axis  point. 

The  statement 


CAU  0C0SP(TEN,TENl.rf8, 


is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  vector 
rom  the  new  point,  TEM,  to  the  other  foci  point,  TEM1 .  The  direction  cosines 
o  this  vector  are  not  the  direction  cosines  of  the  normal  of  the  intersect. 

The  statements 


on  275  J»i*3 
WH < J) «XN05**B ( J) 
275  cnNTlNUE 
onto  iooo 


are  used  to  direct  the  vector  for  the  intersect  on 
that  it  is  into  the  REC  for  an  entry  intersect  and 
exit  intersect. 


the  quadratic  surface  such 
away  from  the  REC  for  an 


The  statement 


15  TRC  SECTION  ron  computjno  the  oirecTion  cosines  or  THE  normal 
300  CALL  UN2(L0ATa,LV,LH> 


is  used  to  retrieve  and  unpack  the  pointers  to  the  coordinates  of  the  vertex 
and  the  height  vector  of  the  TRC  in  the  ASTER  array. 
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The  statements 


WN  ( l )  "ASTER  (l»H> 
WM2)«aSTER(Lm*i  > 
WN(3>»ASTER<LH*2) 


retrieve  the  x,  y,  and  z  coordinates,  respectively,  of  the  height  vector 
from  the  ASTER  array. 

The  statements 


IF(LSURF.EQ.3>G0T0  310 
IF  (LSURF.EQ.2)  XN0S»-*N0S 
call  UMT<WM 
WH ( 1) «XN0S«MN( 1 ) 

W8 (2) »XN0S»WNt2) 

*8f3)«XKjOS»*MO> 

GOTO  1000 


are  used  to  test  to  determine  if  the  intersect  occurs  on  the  quadratic  surface 
of  the  TRC.  If  it  does,  the  program  branches  to  statement  310  to  compute  the 
normal  to  the  quadratic  surface  at  the  intersect.  If  the  intersect  is  not  on 
the  quadratic  surface,  the  normal  is  computed  by  computing  the  direction  cosines 
of  the  height  vector  and  directing  the  result  depending  upon  whether  the  top  or 
bottom  planar  surface  was  intersected. 


The  statements 


310  loata»loata*i 

CALL  UK? (LhATA.LRl «LR2) 
RH*ASTER(lR1> 

RTbASTeR  <LR2> 

RAT I0"RR/ (RH-RT > 


are  executed  if  the  intersect  occurs  on  the  quadratic  surface  of  the  TRC  and 
are  used  to  retrieve  the  location  in  the  ASTER  array  of  the  two  radii  of  the 
TRC,  and  to  compute  the  ratio  of  the  radius  of  the  base  to  the  radius  of  the 
base  radius  minus  the  radius  of  the  top. 
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The  statements 


TEMPI ll-ASTEP(LV) 

temP(2)*a$ter(lvm> 

TEmP(3)»ASTEP(LV*2> 

Ofl  320  1*1*3 

TEm(J  )  *TEMPtI)  *RATIO*WNf  U-XI  U) 
TEMUU*TEMP(1I-XI  f  J » 

320  CONTINUE 


are  used  to  retrieve  the  coordinates  of  the  vertex  of  the  TRC,  and  then  to 
compute  the  vector  from  the  intersect  to  the  apex  of  the  TRC  and  the  vector 
from  the  intersect  to  the  vertex. 


The  statements 


CALL  CROSS  (i#A»TEM,TEMl  ) 

Call  cross <wb«wa,tem> 
Call  unit(wbi 


are  used  to  compute  the  cross  product  of  the  vector  from  the  intersect  to  the 
apex  of  the  TRC  and  the  vector  from  the  intersect  to  the  vertex*  The  result 
is  a  vector  tangent  to  the  quadratic  surface  of  the  intersect*  The  cross 
product  of  the  resultant  vector  and  the  vector  from  the  intersect  to  the 
apex  of  the  TRC  results  in  a  vector  perpendicular  to  the  quadratic  surface  of 

the  intersect  and  directed  into  the  TRC.  The  direction  cosines  of  this  vector 
are  then  computed. 


The  statements 


wa<i>ONOS«tfB<i) 
f?)«XN0S*W8  tjl 
*H<3)"XN0S*WB<3) 
80T0  1000 


are  used  to  direct  the  unit  vector  computed  in  the  previous  statement  such  that 
it  is  into  the  TRC  for  an  entry  intersect  and  away  from  the  TRC  for  an  exit 
intersect . 
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The  statements 


Cl  6  ELL  SECTION  FOB  COMPUTING  THE  Dl«ECTl°N  COSIN£S  OF  THE  NORMAL 
C 

330  CALL  UN2iLOATA.URl.LR2j 
L$«MA5TER  ((.DATA*!  1 


are  used  to  retrieve  and  unpack  the  pointers  to  the  coordinates  of  the  two 
foci  of  the  ELL  in  the  ASTER  array  and  to  retrieve  and  pointer  to  the  lengt 
of  the  major  axis  in  the  ASTER  array. 

The  statements 


on  352  J«l»3 
N"J»1 

I JK 1  wN+tpRl 
I JK2*H*LRz 
TEMUImASTERUJKD 
TEMiU)  FASTER)  I JK2) 
352  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  compute  the  coordinates  of  the  two  foci 
of  the  ellipsoid  of  revolution. 


The  statement 


AbASTER (LS j 


retrieves  the  length  of  the  major  axis  from  the  ASTER  array. 


The  statement 

CALL  DcOSP(TEM.Kt.HN) 

is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  vector 
from  the  focus,  TEM,  to  the  intersect  point  on  the  surface  of  the  E  . 
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The  statements 


00  353  *»*1»3 
TEHTjU*«iNTj>  ♦TCM  <J> 
353  continue 


consist  of  a  DO  loop  which  is  used  to  compute  the  coordinates  of  a  point  on  a 
line  from  the  focus,  TEM,  through  the  intersect  point  to  a  distance  from  focus, 
TEM,  equal  to  the  length  of  the  major  axis. 

The  statement 
CALL.  0C0SP(TE*«.TE*1 


is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  vector 
from  the  new  computed  point,  TEM,  to  the  second  focus  point,  TEM1.  The 
direction  cosines  of  this  vector  are  the  direction  cosines  of  the  normal  of 
the  intersect  point. 

The  statements 


do  354  J*l*3 
>TR  ( J  I  ■XN0S*«ih(J) 
35*  CONTINUE 
GOTO  tooo 


are  used  to  direct  the  normal  for  the  intersect  on  the  surface  of  the  ELL 
suJi  that  it  is  into  the  ELL  for  an  entry  intersect  and  away  from  the  ELL 
for  an  exit  intersect. 

The  statements 


C 

Cl  7 


Raw  Section  FOR  COMPUTtuC 

slanted  surface 


The  DIRECTION  COSINES  Of  normal 


TO 


4(10  IF  (L5URF  .EO.gj  60TO  401 
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lP  TWANSFEH  Tn  enx  SECTION  IF  INTEHSEC*  NOT  ON  SCANT  SIDE 

IF (LSURf .NE t * ) DOTO  ]0o 
WHITE  tMS06> 

STOP 


are  used  to  determine  if  the  intersect  occurs  on  the  slanted  side  of  the 
right  angle  wedge.  If  it  does,  the  program  transfers  to  compute  the 
normal  of  the  slanted  side.  If  the  intersect  does  not  occur  on  the  slant 
side  and  the  surface  number  is  not  equal  to  side  four  (there  is  no  side 
four  for  a  RAW),  the  program  transfers  to  the  section  for  computing  th 
normal  for  an  intersect  on  a  box  (for  sides  1,  3,  5,  6).  If  thesurf, 

number  is  equal  to  four,  there  is  an  error  in  the  PW"  *  ^nd  the 

not  have  a  side  four.  Therefore,  an  error  message  is  written  out,  and  the 

STOP  statement  terminates  the  program. 


The  statements 


Afll  CALL  UN2tLOATA.LV.Lvl) 
LOA  Ta  =  lOATa *  1 
CALL  UN2  (LOATA .LV2.LV « ) 


are  used  to  retrieve  and  unpack  the 
and  the  three  length  vectors  if  the 


pointers  to  the  coordinates  of  the  vertex 
intersect  occurs  on  the  slanted  side  of 


the  RAW. 


The  statements 


on  *io  J*1 »3 
J-l 

TJRi«M*LVl 
I JK?*M*LV2 
TF.MP  <  J>  *  A  ST  fcH  (  1  JK  1  > 

XMTD< J)*ASTEH(I J«1 1-A^TtWt I 

I JK *  L  V  3 

TfM ( J) baSTE H ( I  J* j) 

*lf)  CONTINUE 


consist  of  a  DO  loop  which  is  used  to 
coordinates  of  the  length  vectors  and 


retrieve  from  the  ASTER  array  the_ 
to  compute  the  coordinates  of  H1-H2. 
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The  statements 


*n 


t-i 

j=? 

■<■3 

L*"ii 

ho  ,3 

TsJ 

KeLK 


initialize  integer  variables  for  use  as  indices  in 
loop  computes  the  coordinates  of  the  cross  product 
a  vector  normal  to  the  slanted  surface,  and  stores 


the  DO  loop.  The  DO 
(H1-H2) X  H3 ,  which  is 
the  result  at  TEM1* 


The  statements 


SUHaQ , 

nn  Ma  j= i  *  j 

SUHsTEMj  t  j 1 *TtMP( J) ♦SUM 
CHNUisiuf 


orodnr^of  It*  varlable*  SUM,  to  zero.  The  DO  loop  computes  the  dot 
product  of  the  vector  normal  to  the  slanted  surface  and  the  HI  vector 

the  slanted'  sideT  dV*  "  SUM  18  P°Sltlve’  the  normal  to 

If  «siw ?  ±d^  directed  from  the  vertex  towards  the  slanted  side. 

sLS  slde8  ’  VeCt°r  18  dlreCted  fr°m  thB  VeCtor  away  ^om  the 


The  statement 


SUM—SUM/AHStSUMl 


sets  SUM  equal  to  +1.0  if  the  vector  normal  to  the  slanted  si< 
trom  the  vertex  away  from  the  slanted  side;  or  sets  SUM  to  -1 
normal  is  directed  from  the  vertex  towards  the  slanted  side 


is  directed 
if  the 
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The  statements 


TLK«TIEN1 

TI_K*SORT(TlK> 


square  the  vector  normal  to  the  slanted  side  and  compute  the  square 
root  of  the  result  which  is  the  scalar  length  of  the  vector. 

The  statements 


DO  *20  J*i»3 

wrt  t j)  *kn05*SUm#temi ( JW  tlk 
*20  CONTINUE 
GOTO  1000 


are  used  to  compute  the  direction  cosines  of  the  normal  to  the  slanted  side 
and  direct  it  such  that  the  normal  is  directed  into  the  RAW  for  an  entry 
intersect  and  away  from  the  RAW  for  an  exit  intersect* 


The  statements 


C>9  4*0  StC  T  IOn  FOR  COMPUTING  ThE  Ol^tCUON  COSINES  OF  THE  NORMAL* 

*50  L5RT«L0ATA*L5UMF-Y 

CALL  UN2(LSPTiOUM.U> 


retrieve  and  unpack  the  pointer  to  the  location  in  the  ASTER  array  of  the 
Z,  Y,  and  Z  coefficients  for  the  equation  of  the  intersected  plane  of  the 

arbitrary  polyhedron. 

The  statements 


no  *5 1  JM'l 

SUM-SUM**STERtlJKI»*2 
*51  CONTINUE 


initialize  storage  location  SUM  to  zero,  and  the  DO  loop  computes  the 
sum  of  the  squares  of  the  X,  Y,  and  Z  coefficients  with  the  result 
placed  in  location  SUM. 
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The  statement 

OtVaSQRT (SUM) 

computes  the  square  root  of  the  sum  of  the  squares  of  the  X,  Y,  and  Z 
coefficients  of  the  intersected  plane  of  the  ARB. 

The  statements 


DO  460 
Mbj-i 

we  <  J)  MNOSMSTER  < I  UK) /OIV 
♦66  CONTINUE 
0OTO  1000 


consist  of  a  DO  loop  which  computes  the  direction  cosines  of  the  normal  to 
the  intersected  surface  by  dividing  the  particular  coefficient  by  the  square 
root  of  the  sum  of  the  squares  of  the  coefficients.  At  the  same  time  the 
normal  is  directed  by  XNOS  into  the  ARB  for  an  entry  intersect  and  away 
from  the  ARB  for  an  exit  intersect. 


The  statements 


C?0  TEC  SECTION  FOR  COMPUT IN8  THE  DIRECTION  COSINES  OF  THE  NORMAL 

S00  CALL  ON2 (LDAT A ,L V ,LH ) 

LDATA»LDATa*1 

CALL  UN2(L0ATAiLN.LA) 


are  used  to  retrieve  and  unpack  the  pointers  to  the  locations  in  the  ASTER 

bH7  7  the  C°°^inates  °£  the  V€rcex>  the  height  vector,  the  normal  of  the 
base  plane,  and  the  direction  of  the  semi-major  axis  of  the  base  ellipse. 

The  statements 


*N<1  HaSTER(LN) 

#N(2)«ASTER<LN*i) 

#N<3)«ASTER<LN*2) 
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retrieve  the  x,  y,  and  z  coordinates  of  the  normal  to  the  base  ellipse  from  the 
ASTER  array. 

The  statements 

ir fLSUHf*2)520i$i0i5i0 
$10  *nO$«-*NO$ 


are  used  to  determine  which  of  the  three  surfaces  of  the  truncated  elliptic 
cone  has  been  intersected  and  to  change  the  sign  of  XNGS,  the  constant 
multiplier  of  the  direction  cosines,  if  the  intersected  surface  is  the 
top  planar  surface. 

The  statements 


520  W0(l)"XNOS*U*(l> 

*B(2>"XN0S»WN<2> 
Wft  O>«XN0S*WNt3> 
90T0  1000 


are  executed  if  the  intersect  occurs  at  either  planar  surface.  These  state¬ 
ments,  therefore,  use  the  normal  to  the  base  ellipse  and  direct  it  such  that 
it  is  into  the  TEC  for  an  entry  intersect  and  away  from  the  TEC  for  an  exit 
intersect. 

The  statements 


530  tOATA»t.D*T4*l 

CALL  UN? ILOATAtLftl *L«2» 
l_R3*M4STE«  <L0ATa*i> 


begin  the  section  for  computing  the  normal  if  the  intersect  occurs  on  the 
quadratic  surface.  These  statements  retrieve  and  unpack  the  pointers  to 
the  location  in  the  ASTER  array  of  the  major  and  minor  radii  of  the  base 
ellipse  and  retrieve  the  pointer  to  the  major  radius  of  the  top  ellipse. 

The  statements 


VF (1 )*aSTE81LVI 
VF t2>«ASTER(LV*l> 
VF (3>»ASTEBCLV*2> 
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HP (1 ) «ASTeRtLH> 
HF<2J«*STER(LHM  ) 
HP (3) ■aSTEB (LH*2) 


retrieve  from  the  ASTER  array  the  coordinates  of  the  vertex  and  height  vector 
of  the  TEC. 


The  statements 


T£mP  < l ) *»I( i ) -Vp  ( j ) 

TEwP<2)«M  (?)-vf<?> 

TEmP(3J»XI  1  3 ) - VF ( 3 ) 


compute  the  vector  from  the  vertex  to  the  intersect  point  of  the  TEC. 
The  statements 


HH*00T (TEMP.WN) 
HOn*DOT (HP .WN) 
QiMHA*HH/HOK 


are  used  to  compute  the  length  of  the  vector  from  the  vertex  to  the  inter¬ 
sect  point  projected  onto  the  normal  to  the  base  ellipse  and  to  compute 
the  length  of  the  height  vector  projected  onto  the  normal  to  the  base  ellipse 
(the  distance  between  the  two  planar  surfaces).  The  ratio  of  the  height  of 

the  hit  along  the  normal  to  the  distance  between  the  two  planes  is  also 
computed , 

The  statements 


TFmP  < l ) »VF  < l > *6aMM*®HF  <  1 1 
TEmP(2>«VF<?>*GAMMA*HF  <2) 
TEmP ( 3 1 "Vf (1) ♦Gamma*HF(3> 


compute  the  coordinates  of  the  intersect  projected  onto  the  height  vector 
which  is  the  center  of  the  intersection  ellipse. 
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The  statements 


R1«aST£R<LR1> 

R2»AST£Rtl.R2> 

TAU*<Ri/R2)»*2 

R*«R2/*ST£R(LR3) 


retrieve  the  major  and  minor  radii  of  the  base  ellipse  and  compute 
the  square  of  the  ratio  of  the  major  radius  to  the  minor  radius  of  the 
base  ellipse.  The  minor  radius  of  the  top  ellipse  is  then  computed. 

The  statements 


9SQ«  <<JAMMA«R4*R2*  (  X  .  -GAMMA  J  »««2 
aSO»T  au*bsq 


compute  the  square  of  the  radius  along  the  semi-minor  axis  of  the  inter 
section  ellipse  and  the  square  of  the  radius  along  the  semi-major  axis  of 
the  intersection  ellipse  where  the  radius  along  the  semi-minor  axis  of  the 
intersection  ellipse  is  given  by 


m  *  YRA  +  R2  (1-Y) 


and  the  square  of  the  radius  along  the  semi-major  axis  of  the  intersection 
ellipse  is  given  by 


The  statements 

C»SQRTUSQ«BSQ) 

Twru«2**SQQT  U$Q) 


are  used  to  compute  the  distance  from  tne  center  of  the  intersect 
ellipse  to  the  foci  of  the  intersect  ellipse  and  to  compute  the  length 
of  the  ellipse  along  the  semi-major  axis. 


(87) 
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The  statements 


no  540  1*1*3 
IJK*LA*I-1 

TCMP(1)*C*ASTERI1 JK) 
T€M(I»«TEMPl (II *TERPtI» 
TCM!  (1 )  ■TEMPHI) -TE«P  1 1 » 
540  CONTINUE 


consist  of  a  DO  loop  which  computes  the  coordinates  of  the  foci  of  the 
intersect  ellipse. 

The  statement 

CALL  ocosp<tem»xi«hn> 

is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  vector 
from  a  focus  point  to  the  intersect  point  on  the  surface  of  the  TEC. 

The  statements 


TjMP ( 1 ) *T£M ( ] )*TW0a*WN(1I 
TEMP ( 2 ) ■TCM (g  >  *  TWo**WN (2 ) 
TEMP{3>*TEM<3>*T*0A*Wn< J) 


are  used  to  compute  the  coordinates  of  point  along  a  line  from  a  focus  through 
the  intersect  at  a  distance  equal  to  the  length  of  the  intersect  ellipse  along 
the  semi -major  axis. 

The  statement 

C*LC  f)cOSP«TEMP,TEMl  .WN» 

is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  unit 
vector  from  the  previously  computed  point  to  the  other  focus. 
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The  statements 


IF (H2,EG.R4>G0T0  545 
RATION?/  (R2-R4) 


are  used  to  compare  the  semi-minor  radii  of  the  base  ellipse  and  the  top 
ellipse  of  the  TEC  to  determine  if  they  are  equal*  If  they  are  equals  the 
sides  of  the  TEC  are  parallel  and  the  program  branches  to  compute  the  direc¬ 
tion  cosines  of  the  normal  at  the  intersect*  If  not  equal,  the  ratio  of  the 
base  semi-minor  radius  to  the  radius  of  the  base  semi-minor  radius  minus  the 
semi-minor  radius  of  the  top  ellipse  is  computed* 


The  statements 


Hf  i\)  *V  F  t  \  \  *R  AT  1 0#HF  1 1  )  -XT  U  ) 
HF  ( 2 )  *VF (2) ♦»AT10*mf (?) 
MF ( 3 3  * VF ( 3 ) +RATI0*MF  (3>  C  3 i 


are  used  to  compute  the  vector  from  the  intersect  to  the  apex  of  the  TEC* 


The  statements 

545  CALL  CROSS ( N  F iMF ■  W  N ) 
CALL  CROSS (40<NF #hF> 
CAUL  UNIT < MR} 


are  used  to  compute  the  cross  product  of  the  vector  from  the  intersect  to  the 
apex  of  the  TEC  (or  the  h  vector  if  the  sides  are  parallel)  and  the  unit  vector 
perpendicular  to  the  normal  at  the  intersect*  The  result  is  a  vector  tangent 
to  the  quadratic  surface  at  the  intersect*  The  cross  product  of  the  resultant 
vector  and  the  vector  from  the  intersect  to  the  apex  of  the  TEC  (or  the  H 
vector  if  the  sides  are  parallel)  is  a  vector  perpendicular  to  the  quadratic 
surface  of  the  intersect  and  directed  into  the  TEC  *  The  direction  cosines  of 
this  vector  are  then  computer. 
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The  statements 


WBU>«XN05*WB(1) 
W8 (21 »XN0S*WB<2) 
(3) ■XN0S^yB<3) 
GOTO  1000 


are  used  to  direct  the  unit  vector  for  the  intersect  on  the  quadratic  surface 
such  that  it  is  into  the  TEC  for  an  entry  intersect  and  away  from  the  TEC 
for  an  exit  intersect* 


The  statements 


C 

c?l  TOR  SECTION  FOR  COMPUTING  THE  DIRECTION  cosines  of  The  NORMAL 

c 

MO  CALL  UN?  <LDATA*LVfLN) 

LDAT  A*LU AT  A  4 l 

CALL  UN2 (LOaTa tLRi tOU^i 


are  used  to  retrieve  and  unpack  the  pointers  to  the  locations  in  the  ASTER 
array  of  the  coordinates  of  the  center  of  the  torus,  the  normal  to  the 
plane  of  the  torus,  and  the  major  radius  of  the  torus* 

The  statements 


on  55i  i*io 

J-I-l 

!JK*LV+J 

tempi n-xi  (j)-A$Teft(ij*c> 
IJK*LN*J 

TFMPi t 1 } *ASTER( I JK> 

551  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  retrieve  the  coordinates  of  the  center 
of  the  torus  and  to  compute  the  vector  from  the  vertex  to  the  intersect 
point  on  the  torus*  The  coordinates  of  the  normal  to  the  plane  of  the  torus 
are  also  retrieved* 

The  statement 
R1«AST£R (L«l j 
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is  used  to  retrieve  the  value  of  the  major  radius  of  the  torus. 
The  statements 


CALL  CROSS(TEm,TcmPi»TeHP) 
CALL  CROSS (TEm  «T£M* TEMPI k 
CALL  UNIT  ITEM!) 


are  used  to  compute  the  cross  product  of  the  normal  to  the  plane  of 
the  torus  and  the  vector  from  the  center  of  the  torus  to  the  intersect 
using  Subroutine  CROSS.  Subroutine  CROSS  is  again  called  to  compute  the 
cross  product  of  the  resultant  vector  and  the  normal  to  the  plane  of  the 
ellipse,  which  results  in  a  vector  from  the  center  of  the  torus  to  the 
center  of  the  circular  plane  of  the  intersect.  Subroutine  UNIT  is  then 
called  to  convert  the  vector  to  a  unit  vector. 

The  statements 


oo  552  I“V»3 

JM-1 

IJK=LV*J 

TEM(I) -aSTERI I JK) 
Temp1 t|> ■Tgn 
552  CONTINUE 


consist  of  a  DO  loop  which  retrieves  the  coordinates  of  the  center  of  the 
torus  and  computes  the  coordinates  of  the  center  of  the  circular  intersect 
plane. 

The  statement 

CALL  DCOSP(TEMP) .Xl.WBl 

is  used  to  call  Subroutine  DCOSP  to  compute  the  direction  cosines  of  a  vector 
from  the  intersect  point  to  the  center  of  the  circular  intersect  plane, 
which  is  the  normal  to  the  intersect. 

The  statements 

DO  553  I"1 *3 
UB < I)>XNQS*H0(II 
553  CONTINUE 
GOTO  1000 

consist  of  a  DO  loop  which  directs  the  normal  for  the  intersect  such  that  it 
is  into  the  torus  for  an  entry  intersect  and  away  from  the  torus  for  an 
exit  intersect. 
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The  statements 
C 

C?2  A«S  SECTION  FOR  COMPUTING  the  DIRECTION  COSINES  Or  THE  NORMAL 

600  L0C*RS»MASTEfi (LDAT*) 

L0c«L0CARS*2 

0l5"XOTST<XS«XI) 


are  used  to  retrieve  the  beginning  location  of  the  ARS  data  in  the  MASTER- 
ASTER  array  and  the  beginning  location  of  the  ARS  distance  data.  The  dis¬ 
tance  from  the  origin  of  the  ray  to  the  present  intersect  is  then  computed. 


The  statements 


DO  fcl  r»  I*l,2o 

IF(A6S(DIS-ASTER(L0C) I ,LE.O.OOOl>bOTo  620 
LhC'LOC** 

610  CflNTlNUE 

consist  of  a  DO  loop  used  to  serch  the  distance  data  for  the  intersect  dis¬ 
tance  that  is  equal  to  the  current  intersect  distance  that  was  previously  com¬ 
puted  and  stored. 

The  statements 


(6,9031 
SN**1 , 
ANGLE*- 1  . 

return 


are  executed  if  no  distance  was  found  in  the  distance  data  that  was  equal  to 
the  present  intersect  distance.  These  statements,  therefore,  write  out  an 

error  message,  set  the  normal  distance  and  angle  to  a  -1  and  return  control 
to  Subroutine  TRACK. 


The  statements 


620  Wfl<  1  >*A$TEP<L0CM  1 
(2)  *AST£R  (LOO?) 

WB(3>*#STER(L0C*3> 

GOTO  1000 


are  executed  when  a  distance  is  found  in  the  distance  data  that  is  equal  to  the 
current  intersect  distance  being  considered.  These  statements,  therefore, 
retrieve  the  direction  cosines  of  the  normal  to  the  intersected  triangle  that 
was  previously  stored  with  the  intersect  distance  when  the  ray  was  tracked 
during  subroutine  TRACK. 
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The  statements 


C 

C?3  COMPUTE  OBLIQUITY  ANGt_E  AND  NORMAL  DISTANCE  TO  NEXT  REGION 
C_ 

1000  no  iooi  j®i.3 

xatj^xr 

1001  CONTINUE 

consist  of  a  DO  loop  which  is  used  to  move  the  coordinates  of  the  intersect 
point  a  very  small  distance  into  the  region  following  the  intersect  to  avoid 
tracking  from  a  boundary. 

The  statements 


ANGLE«0* 

00  1002  J»l*3 
angle*an<}Le**b(j)*ws(j) 
1002  CONTINUE 


initialize  the  variable  name,  ANGLE,  to  zero.  The  DO  loop  computes  the 
cosine  of  the  angle  between  the  direction  of  the  normal  at  the  intersect 
and  the  direction  of  the  ray  by  computing  the  dot  product  of  the  two  unit 
vectors  (direction  cosines). 

The  statement 


IF (ABS (ANGLE) iLe. 1 . ) GOTO  lolo 


is  used  to  determine  if  the  absolute  value  of  the  cosine  of  the  angle  between 
the  direction  cosines  of  the  normal  and  the  direction  cosines  of  the  ray  are 
less  than  or  equal  to  one.  A  value  greater  than  one  is  an  error,  but  such 
an  error  could  result  from  round-off  error. 

The  statements 


ANGLEao* 

SN«0. 

write  (6*904>NtR*lTvPE«NBOtL$URFt«8*NS|XP*XBtXI»XNOS 

IR»NJR 

GOTO  40 
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are  executed  if  it  was  previously  determined  that  the  cosine  of  the  angle 
between  the  ray  and  the  normal  Is  greater  than  one  due  to  round-off  error. 
The  angle  and  normal  distance  are  set  to  zero  (the  normal  distance  for  a 
ray  perpendicular  to  the  surface  at  the  intersect  would  be  the  same  as  the 
line-of-sight  distance  through  the  region),  the  values  of  pertinent  data 
are  written  out,  the  region  following  the  Intersect  is  updated  to  the 
present  region,  and  the  program  transfers  to  check  the  space  code  of  the 
following  region. 

The  statements 


C 

compute  obliquity  angle 

c 

1 010  ANOlEpAT AN2 (SORT fl.-AN0LE*ANaLEt(ANQLE)*lG0»/3« 1*1 SQ265* 
IF  (ANGLE  «l.E  *«<}'>  GOTO  1020 
on  ion  J"i *3 
MR(J)»-WB(J> 

Toil  CONTINUE 
GOTO  1000 


convert  the  angle  to  degrees  and  test  to  determine  if  the  angle  is  greater 
than  90  degrees  due  to  round-off  error.  If  it  is,  the  direction  cosines 
of  the  normal  are  reversed,  and  control  is  returned  to  again  compute  the 
angle. 

The  statements 

C 

Cj»5  COMPUTE  normal  oj stance  to  next  intersect 

c 

1020  NASC*«2 
TRBNIR 

CALL  Oi ■ S i t IRPRIM, Xp j 

SN»Sl 

GOTO 

EnO 

c 

c 

first  sets  the  variable  NASC  to  -2  to  indicate  to  Subroutine  G1  that  it  is 
to  compute  the  normal  distance  through  the  region,  not  the  identity  of  the 
next  region.  The  region  through  which  the  normal  passes  is  identified  as 
the  region  following  the  intersect.  Subroutine  G1  is  called  to  compute 
the  normal  distance  through  the  region,  which  is  assigned  to  variable  SN. 
The  program  then  transfers  control  to  check  the  space  code  of  the  following 
region. 
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Subroutine  G1 (SI, IRPRIM,XF) 


This  subroutine  is  the  main  ray-tracing  routine  of  the  MAGIC  program. 
It  performs  the  following  function:  Given  a  ray  in  region  IR  at  point  XB 
with  direction  cosines  WB,  determine  the  distance  (SI?  to  the  next  region, 
the  number  (IRPRIM)  of  that  region,  the  coordinates,  XP,  of  the  next  inter¬ 
sect,  and  the  surface  number  (entering  or  leaving)  of  the  next  intersect. 

Some  special  variables  used  in  this  subroutine  are  as  follows: 


NASC  =  -2 
NASC  =  -1 
IVOLUM  =  1 

ITESTG  =  1 

DIST 


Call  from  CALC  to  find  normal  distance 

Start  a  new  ray 

Call  from  Subroutine  VOLUM 

Call  from  Subroutine  TESTG 

Total  distance  travelled  by  ray 


The  statements 


OIMENSION  XP ( 3) .LSURT (501 .NA5CT  150) 

OlMENSlON  MASTER  I  1  0000  I 
COMMON  ASTERIlOOOOl 

COMMON/PAREM/X0 (3) <«0 (3) ,  IH 

COMMON/GEOm/LBA  SE ♦ R I N  »  ROU  T . LR 1 1 LRO . P INF • I ERR  »  0 1 ST 
COMMON/UNcGEM/NRPP iNTRiP iNSCaL iN0Oq V iNRM *X«LTfi ]P  f lScaL  t  lregd ' 
1  LOATA*LRIN*LROT.LIOiLOCOAiI;S*I3o*LBOOY*NA$CiKLOOP 
COMMON/c  At_/N  I R  t  StOS  t  ANGLE  «NT  YPE  »S$PACE  *1  *  *S  (  3  >  1  PS  ( 3)  *  TRAVEL* 

1  SNfV'HdVIH 
COMMON/WALT/LIRFOiNGlERR 
COmmOn/lSU/lSURf 

COMMON/CONTRL/ITESTGf IRAYSK. IENTUY » I VOLUMt lPOTt I T APEStNO.  I  YES 
COM«ON/OAVlS/lGRI[)*LOOPi  INORM 
COMMON/CELL /CELS I Z 
COMMON/PHICW/NSO 


dimension  arrays  and  pass  information  into  and  out  of  this  subroutine. 
The  statement 

EQUIVALENCE  (ASTER.MASTCH) 

sets  the  MASTER  array  equivalent  to  the  ASTER  array. 
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The  statements 


901  FORMAT ( 1H0 • 32HERROR  In  G1  aT  1*0  BAO  ITYPE.SXt*MITV*,I5) 

902  f oRmaT ( 1  MO • 33HERROB  |N  Q1  4X  510  SH  *•  PInF*5X.3MIR».IS) 

903  FORmaT(*M  XBa . 3E20 • e/*H  *B"*3£2O.8/1OX*5MKLOOP.12x,3mN0O, 

. 1  12X»3HLRI»12x»3MtR0«llX«9HNHir»llX.*HL00P/Bll5) 

90*  F0RMAT(1H1,15(2H,  ),3X.  9HERR0R  NO. ,I5f 3XtlS(2H 

905  FORMAT (3*X,*HCELL. 21*) 

906  FORMAT (19M  ERROR  IN  Gl  aT  6*0//*H  J1*»I10**H  J2**J10*7H  LSURf •, 

1  IlO*6H  NASC«iUo**H  IR«.Iio/*M  SM»,E21.10»*H  Sl.iEiT.10/ 

2  *h  Mga*3E21 . 10/*H  X9.,3E2i,io> 

907  FORMAT (50H  THE  (SOLID  POSITION/OEPTH/POINT  NOW  AT)  IS  ONE  OF. 

1  6H  THESE/6H  XBO  ■.3E21.10/6M  0lSTB.E21 . 10//) 

908  FORMAT «9*»3HRIN.|2X.4mROUT,7X,8hENTERINg»2*»7HLEAVINO,3x* 

1  8MB00Y  N0..5X.3MRAY./35X.8MSI0E  nO. ,2X.8HSIo£  No.//) 

910  FORmaT(//i6h  TILT  RIN«ROUT..E20.lQ*30X.2Hi«.IS//> 

’ll  FORMAT  <2(2X.Ei5.8) .*X. 1 2* 8*. 12»6X. IS .5X1 TMSTArTEU/) 

912  F0RmAT(2(2X.E15.8> .*X.I2*6X.I2.6^»I5.5X*7HHaS  MIT/) 

9)3  FORMAT (2 (2X.ElS.8l «*X. I2«8X. I 2 .6*. IS. 5*. 7HLEAVING/ ) 

9i*  FORMAT(2|2X.ElS.8) .*X,I2.8X.12,6X.I5.5X.7M  IN  /) 

915  FORmaT (2  <2X.Ei5.al  * ** *  1 2 * 8* *  12 • 6* *  1 5 • %X . 8H£NTr R jNn/ ) 

916  F0RMAT(2(2X.E15.8) .*X.I2,8X.I2,6X.I5.5X.8MFILL  Mir/) 

917  FORmaT(//*(iam  ENo  ERROR  NO..I*.3X)/) 

918  FORMAT (1Ho«I5«21H  ERRORS  IN  Oi»  RETURN) 


are  used  to  format  output  when  errors  are  detected  and  to  format  a  diagnostic 
error  printout. 


The  statements 


1NORM.O 

IF (NASC.EQ.-2) INORM-i 

st»o. 

IF (NASC.OT.o)OOTO  20 


initialize  INORM  to  0  (INORM  is  used  in  Subroutine  ARS  to  determine  whether 
the  normal  distance,  INORM=l,  or  the  line-of-sight  distance,  INORM=0,  is  to 
be  computed).  The  variable  NASC  is  tested  to  determine  if  this  subroutine 
has  been  called  by  Subroutine  CALC  to  compute  the  normal  distance  through  a 
body  (IN0RM=1) .  The  variable  SI  for  recording  the  distance  through  a  region 
is  initialized  to  zero.  If  NASC  is  greater  than  zero,  a  branch  is  made  to 
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Statement  20  to  begin  tracing  the  ray  through  the  region-  If  NASC  is  less  than 
zero,  a  new  ray  (either  for  normal  or  line-of-sight  distance)  is  to  be  started. 

The  statements 


C 

Cl  INITIALIZE  FAR  NEW  RAT 
C 

0I$T*9 • 

IF(KLOOP*LT*32O0OMJOTO  15 

KLOOP*0 

L I0N*L IO*N0ODY*NRPP*1 
00  to  IaLI0tL ION 
MASTER ! I >a0 
10  CONTINUE 


are  executed  when  a  new  region  has  been  found  and  the  ray  through  the  region 
is  to  be  started.  The  variable  DIST  for  the  distance  through  the  region  is 
initialized  to  zero,  and  the  variable  KLG0P  is  tested  for  less  than  32,000 
since  the  maximum  size  of  KL0QP  is  15  bits  or  32,768,  If  KL00P  is  greater 
than  32,000,  KLOOF  and  the  temporary  data  area  for  Subroutine  G1  are  initialized 
to  zero. 

The  statement 


\ 5  KlOOPwkLOOP* j 


increments  the  count  in  KLOOF  by  one*  This  value  is  stored  for  each  body  in 
the  region  after  the  body  routines  return  with  the  computed  values  of  RIN  and 
ROUT,  When  G1  is  later  called  by  CALC  to  compute  the  normal  distance  through 
the  region,  KLOOF  is  again  incremented  by  one.  The  new  value  of  KLOOF  is 
compared  with  the  previously  stored  value  of  KL00P  as  a  test  to  determine  if 
the  normal  distance  is  to  be  computed.  This  test  is  performed  in  Subroutine  Gl, 
Subroutine  WOWI,  Subroutine  TOR,  and  Subroutine  ARS*  Therefore,  until  Sub¬ 
routine  CALC  calls  for  the  normal  calculations,  the  variable  KL00P  will  equal 
the  previously  stored  value  of  KLOOP,  now  referred  to  as  LOOP,  which  indicates 
to  the  above  subroutines  that  the  line-of-sight  distance  is  to  be  computed • 

The  statements 


C 

C?  0EGIN/CONTINUE  TRACING  RAT  THRU  REGION 
C 

20  $M*PINF 
NHl T»q 
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El  COMPUTE  LOCATION  OF  REGION  DATA 
C 

10C*LREGDMR-1 

C 

C4  RETRIEVE  THE  NUMBER  OF  BODIES  IN  REGION 
C 

CALL  UN2(LOCiLOC«NC) 

loc-loc-i 


initialize  the  variable  SM  to  an  extremely  large  positive  value,  (SM  is  used 
to  represent  the  shortest  distance  from  the  origin  to  the  next  intersect.) 

The  number  of  solids  hit,  NHITS,  is  initialized  to  zero,  and  the  number  of 
descriptors  in  the  prescribed  region  along  with  the  location  of  the  solid 
numbers  in  the  region  is  retrieved.  The  location  of  the  solid  numbers  is 
decremented  by  one  since,  in  the  following  DO  loop,  one  is  added  to  the 
location  number  before  the  solid  number  is  retrieved. 

The  statement 
C 

DO  500  N»1,nC 


begins  a  DO  loop  to  perform  the  following: 

Given:  NC  =  number  of  bodies  in  region  description. 

Find:  RIN  and  ROUT  for  each  of  these  bodies. 

RIN  is  the  distance  from  point  XB  to  the  point  where  the  ray 
enters  the  body. 

ROUT  is  the  distance  from  point  XB  to  the  point  where  the  ray 
leaves  the  body. 

If  ROUT  =  -PINF,  the  ray  does  not  hit  the  body. 

Unique  value  of  RIN  indicates  next  body  in  the  path  of  the  ray. 

Two  or  more  values  of  RIN  indicates  two  or  more  bodies  have 
a  common  surface. 
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ROUT  for  current  body  means  that  the  ray  will  leave  this  body 
before  encountering  another  body. 

G1  selects  the  smallest  of  the  RIN  or  ROUT  distance  and  sets  it  equal  to  DIST 
The  statements 


C 

C<S  RETRIEVE  boot  number 

c 

tOC«L0C*l 

CALL  UNZ<L0C'OUMtNB01 

Cd,  retrieve  ENTER  AND  EXIT  surface  numbers  ANU  tAST  rat  number 

c 

IT£mP»LI0*N80-1 

CALL  UN3<ITEmP.LRI.LH0iL00R> 

Ct  retrieve  bout  type  and  location  of  Oata 

c 

ITEmP»LBOOY*3«<N0O-1 t 
CALL  un?(ITemp.itype»locoa> 


retrieve  the  solid  number,  the  value  of  the  variable  LOOP  for  testing  against 
KLOOP,  and  the  type  of  body  that  the  solid  represents. 

The  statement 


IF (LOOP  »NE • KLOUP) GOTO  J  30 


determines  if  RIN  and  ROUT  for  the  current  solid  have  already  been  computed 
for  line-of-sight  distance  or  for  the  normal  distance  if  G1  was  called  to 
compute  the  normal  distances.  If  RIN  and  ROUT  for  either  condition  have  not 
yet  been  computed,  the  program  branches  to  prepare  for  computing  RIN  and 
ROUT  (normal  or  line-of-sight)  of  the  body.  If  RIN  and  ROUT  have  already  been 
computed,  RIN  and  ROUT  are  retrieved  from  storage. 

The  statements 


CA  CONTINUE  RAY  RETRIEVE  RIN/ROUT  fOR  CURRENT  BOOT 

C  IFdTTPE.GT.lDGOTO  U0 

IJK»LRIN*N90-1 
RIN-ASTERIIJKI 
I  JK»LR0T*NBQ-1 
ROUT-ASTER < I JKI 
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are  executed  If  RIN  and  ROUT  were  previously  computed  for  the  current  body. 
These  statements  determine  if  the  present  body  is  a  valid  type  and,  if  not, 
branch  to  record  an  error.  If  the  body  type  Is  valid,  the  RIN  and  ROUT 
of  the  body  are  retrieved  from  their  locations  in  the  ASTER  array. 

The  statements 


IF(ITYPE.LT.10>G0T0  320 

£q  IS  NEAT  RIN/ROUT  SET  REOUIRED  FOR  TOR  OR  AHS 
C 

IFIROOT.LI.O.HJOTO  32r 
IFlniST.LT.RnUTIOOTO  320 


determine  if  the  body  type  Is  a  torus  or  an  arbitrary  surface,  because  these 
two  bodies  can  have  more  than  one  RIN/ROUT  set;  if  a  torus  or  an  arbitrary 
surface,  a  test  is  made  to  determine  if  the  ray  misses  or  if  the  present 
point  along  the  ray  is  equal  to  or  past  the  stored  ROUT  distance.  If  the  ray 
misses  or  the  distance  along  the  ray  is  not  yet  past  the  ROUT,  the  program 
branches  around  the  section  for  calling  the  body  subroutine  to  compute  the 
next  RIN/ROUT  set. 

The  statement 


IF(NASC.E0,NSO»naSC»0 


is  executed  only  when  the  present  body  type  is  a  torus  or  an  arbitrary  surface 
and  the  distance,  DIST,  is  equal  to  or  greater  than  the  ROUT  of  the  body.  The 
statement  initializes  NASC  to  zero  if  it  is  equal  to  the  current  solid  number. 


The  statements 


C 

no  cum 

ERO-l 

tty«itypem 

IFUTY.GE.)  .AND.ITY.LE,12)60T0  200 
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initialize  the  entering  and  leaving  surface  variables,  increment  the  body 
type  to  avoid  a  zero  index  in  the  following  computed  GOTO  statement,  and 
test  the  body  type  number  to  determine  if  it  is  a  valid  number.  If  it  is, 
the  body  routine  is  called.  If  not,  an  error  printout  is  executed. 

The  statements 


1*0  IERRMERR'i 

WRITE  (6.901>ITYPE 
onto  boo 


print  out  an  error  message  if  the  body  type  number  is  not  valid  and  transfer 
to  the  end  of  the  subroutine. 


The  statements 


C 

Cio  COMPUTE  RlN/ROUT  for  current  boot 

c 

C  RPP  BOX  SPM  RCC  REC  TRC  ELL  «A«*  ARB  TEC  TOR  aRS 

200  OOTO <2o5»2io*215»22o »225»230»235*240*2A5*25o*255»26oJ  « ITT 
205  CALL  RPP(N0O> 

GOTO  300 
210  CALL  BOX 
OOTO  300 
215  CALL  SPH 
GOTO  300 
220  CALL  RCC 
GOTO  300 
225  CALL  REC 
GOTO  300 
230  CALL  TRC 
GOTO  300 
235  CALL  ELL 
GOTO  300 
2*0  CALL  RAW 
GOTO  300 
2*5  CALL  ARB 
GOTO  300 
250  CALL  TEC 
GOTO  300 
255  CALL  TOR 
GOTO  300 

260  CALL  ARS 
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transfer  control  according  to  body  type  to  a  statement  that  calls  the  proper 
body  subroutine.  Upon  return  from  the  body  subroutine,  control  is  transferred 
to  Statement  300. 

The  statements 


C 

Cl  1  STORE  R1N  AND  ROUT  FOR  BOOT  IN  RlN  AND  ROUT  Ti8L.ES 
C 

300  I JK«LR IN*NB0» I 
ASTER  1 1 JtO  »RIN 
I JK«LR0T*NB0-1 
aSTERUJK*  xROUT 
IJK«LIO*NBO-1 

MASTER  1 1 JK) -KCOOP* 1 15»  U.R0*64*LRt  t 


store  the  values  of  RIN  and  ROUT  in  the  ASTER  array  in  the  RIN  and  ROUT  table 
according  to  body  number .  The  entering  surface  number,  the  leaving  surface 
number,  and  the  value  of  KLOOP  are  also  packed  into  a  word  and  stored  according 
to  body  number  and  region  number. 

The  statements 


C 

Cl  2  IS  POINT  AP  ON  CURRENT  boot  YES-IS  IT  ENTER  OR  EXIT 
C 

320  IF (NASCtNE* nBO) 50 TO  330 
IF(lSURF»500*500«3AO 


compare  the  present  body  with  the  body  where  the  point  XP  is  presently  located. 
If  point  XP  is  on  the  body  now  under  test,  it  is  determined  if  XP  is  at  a  RIN  or 
ROUT  location.  If  XP  is  at  a  ROUT  location,  control  is  passed  to  the  end  of 
the  DO  loop  to  consider  the  next  body  in  the  region.  If  the  point  XP  is  not 
on  the  body  now  under  test,  or  is  at  the  RIN  location,  the  subroutine  branches 
to  perform  more  tests  relative  to  the  location  of  point  XP  with  respect  to 
the  bodies  in  the  region. 

The  statements 


C 

C13  OOES  Ray  intersect  BOOY  yes-oocs  It  ORIGINATE  W [THIN  body 

c 

330  IF irout.le.o. >goto  soo 

IFlRIN.GT.o.tOOTO  350 
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determine  if  the  ray  misses  the  body;  if  not,  RIN  is  tested  to  determine  if 
the  present  location  of  XP  is  within  the  body  or  at  location  RIN. 

The  statements 


C. 

C14 


point  xp  at  bin  OR  WITHIN  BOOT 


3*0  ir(*BS<ROUT»SM» .GT.SM»1.0E«6>OOI°  3*1 
ROUT»Sm 

I jk»lrot*nbo-i 
*ster <ijk>»root 

GOTO  3*5 


are  executed  if  point  XP  is  now  at  RIN  on  the  present  body  or  if  the  ray 
originates  within  the  body.  These  statements  determine  if  the  ROUT  and  the 
distance  to  the  last  body  tested  are  close  enough  to  be  considered  a  single 
intersect.  If  they  are,  the  distance  of  point  XP  is  assigned  to  ROUT. 

The  statements 


3*1  IF (ROUT-SM) 3*2*3*5*500 
3*2  If (OIST.GE.ROUT)GOTO  500 
NHlT«0  _ 

3*5  NHlT-NHlT*! 

SMaROUT 

tSURT (NWlT>a-LR0 
NASCT  <nHIT) aNBO 
GOTO  500 


are  executed  when  point  XP  is  at  the  RIN  intersect  of  the  present  body  and 
the  next  intersect  does  not  occur  at  the  same  point.  These  statements  test 
the  ROUT  intersect  distance  against  the  distance  to  the  last  body  tested. 

If  ROUT  is  greater,  control  is  passed  to  the  beginning  of  the  DO  loop  to 
test  the  next  body.  If  ROUT  is  smaller,  it  is  compared  with  the  distance 

that  XP  has  travelled  in  the  region.  If  the  distance  of  XP  is  greater,  con¬ 

trol  is  passed  to  the  beginning  of  the  DO  loop  to  test  the  next  body.  If 
the  distance  is  smaller,  the  variable  SM  is  equated  to  ROUT  to  represent  the 

shortest  distance  to  the  next  intersect,  the  body  number  of  the  intersect  is 

recorded,  and  the  variable  LSURT  is  set  negative  for  the  intersect  occurring 
at  a  leaving  surface.  Control  is  then  passed  to  the  beginning  of  the  DO  loop 
to  test  the  next  body. 
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The  statements 


C 

ei5  POINT  xp  at  rout  of  boot 
c 

350  IFUBS(RIN*5H)  .flT.5M*l,0C*6IOOTO  351 
RJN-5M 

IJK"CRJN*N80"1 
astcr 1 1 JK) *rin 

SOTO  355 


are  executed  when  the  RIN  Intersect  of  the  body  under  test  does  not  occur  on 
the  same  body  at  which  point  XP  is  now  located.  These  statements  determine 
if  the  present  RIN  intersect  and  the  Intersect  of  the  last  body  tested  occur 

to  RIN  Same  P°int*  If  they  d°’  the  intersect  of  the  previous  body  is  assigned 


The  statements 


351  IF(HIN»5M)352( 355*500 

352  ir<oisT.ae.RiN>aoTO  3*0 

NMlT-o 

355  NHlT«NNlT*i 
Sm-rJn 

LSURT(NMIT)-LRI 
NflSCT (NHIT) «N0O 
500  CONTINUE 


are  executed  when  the  intersect  of  the  last  body  and  RIN  of  the  present  body 

the  °  °^CUr  sdmultaneously-  These  statements  test  the  RIN  intersect  against 

is  returned ta"ce . to  . the  last  ho^  tested.  If  RIN  is  greater,  control 
xs  returned  to  the  beginning  of  the  DO^loop  to  test  the  next  body.  If  RIN 

control Xt  C°mpared  with  XP*  «  ^  greater  than  or  equal  to  RIN, 

variable  V*  t  JeSt  I?°  ^  distance*  lf  is  greater  than  XP,  the 

inter!LfS t0  N  t0  represent  the  shortest  distance  to  the  next 
t^NASf  and  S B  b°dJe"  tefted-  ^  body  number  of  the  intersect  is  assigned 
It  In 1  variable  LSURT  is  set  positive  for  the  intersect  occurring 

ls  then  passed  « the  **  ~ 


298 


TN  4565-3-71  Vol  II 


The  statements 


ir <5K.lT*PINF)Q0T0  530 


c 


error-no  intersect 

WRITE  (6»<>03>  *B»W8*RLOOPtN80iLRl*LRO(MMIT«LOOP 
QflTO  700 


determine  if  an  intersect  after  XP  was  found  after  testing  all  of  the  bodies 
in  the  region.  If  no  intersect  was  found,  an  error  message  is  printed  and 
control  is  passed  to  the  error  diagnostic  print  section. 

The  statements 


Ci 7  COMPUTE  NEW  COORDINATES  OF  POINT  XP  AND  REVISE  OISTXNCE  TRAVELLED 
C 

530  S1"S1*5M-DIST 
DIST-SM 

XP<2>**9<2>  *SM*WB<E> 

XP{3)«X8<3>#Sm*wB(3> 


update  the  cumulative  distance  that  XP  has  travelled  to  the  next  intersect , 
after  all  of  the  bodies  in  the  region  have  been  considered.  The  point  XP 
is  also  relocated  to  the  next  intersect. 

The  statement 


IFtNftSC»EQi*2) RETURN 


determines  if  this  subroutine  has  been  called  by  Subroutine  CALC  to  find  the 
normal  distance.  If  the  computations  are  for  the  normal  distance,  control  is 
returned  to  Subroutine  CALC.  If  this  subroutine  was  called  to  find  the 
distance  to  the  next  region,_the  following  DO  loop  is  executed  to  deter¬ 
mine  the  region  where  point  XP  is  now  located. 
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The  statement 


C 

Cl  8  DETERMINE  REGION  that  POINT  XP  NOm  In 

c 

on  8*0  NN-l.NHIT 


f1C\Wil1  scan  the  tabla  of_hlte  prepared  by  the  previous 
oop  to  determine  the  region  where  point  XP  is  now  located. 

The  statements 


NaSc  *NaSCT(NN) 
L5URE»tSURT(NN> 
LTRUE-0 


NASC  ^he  surSe  \  *  * T  °f  the  h±t  bein*  considered  to  the  variable 

thJ  ^rlable  SuF  7  U  to  the  VariabIe  LSbRF-  and 

WOWI  if  S  L  wfted  ^ni^lalized  to  zero-  LTRUE  Is  set  to  one  by  Subroutine 

f  XP  is  located  in  the  region  passed  to  Subroutine  WOWI  by  Subroutine  Gl. 


The  statements 


ci 9  compute  location  or  intersected  body  oata 

LOC-L800Y*  3« <  NASC- 1 > 

LOc*LOc*l 

c 

C70  RETRIEVE  LOCATIONS  OF  HEflION  ENTCR/LEAVE  TABLE  FOr  BOOT 

CALL  UN2  (LOCiLENT.LEAV) 

LOC*LOc*1 

C 

C?l  RETRIEVE  NUMBER  Of  REGIONS  IN  ENTRY  LIST  AND  EXIT  LIST 

c 

CALL  UN2(LOC,NENT,NCAV) 


“I1"  !?*  l0Catl0n  °f  the  b0dy  data  f°r  th.  body  being  tented;  then,  using 
Is  location,  retrieve  the  locations  of  the  entrance  and  exit  lists  The 

total  number  of  regions,  that  XF  can  be  In  „he„  It  is  either  entering  or  leaving 
the  present  body  is  then  retrieved.  g  leavinS 
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The  statements 

C 

C22  COMPUTE  TME  SEGIN  AND  ENO  OP  LIST 
C 

IFILSURF.LE.OlOOTO  600 
J1*LENT 
J2"LEnT*NENT*1 
SOTO  610 
600  JI*LEAV 

J2“L£AV*NEAV*1 

determine  if  XP  is  at  an  entering  or  leaving  surface  of  the  body  under  test. 
The  variable  J1  is  assigned  to  the  location  of  the  start  of  entry  (or  exit) 
list,  and  the  variable  J2  is  assigned  to  the  location  of  the  end  of  the 
entry  (or  exit)  list. 

The  statements 


C23  ANY  REGIONS  tN  U3T  OR  IS  RAY  LCAYINfl  HPP 
C 

6)0  IflPRIM«MAST£R< JZ) 

IF t Jl»L£t J2JOOTO  620 
IF (NASCtOT.NRPP) GOTO  TOO 
IF  (LSURF) 630* 700*700 

are  used  to  assign  to  the  variable  IRPRIM  the  last  region  number  from  the 
region  table  for  later  use  in  the  error  diagnostic  section  if  there  is  an 
error  in  the  region  table.  The  beginning  of  the  enter  (or  leave)  list  is 
compared  to  the  end  of  the  enter  (or  leave)  list.  If  there  are  entries  in 
the  list,  control  is  passed  to  determine  which  region  the  ray  is  entering. 

No  entries  in  the  list  indicate  that  the  ray  is  leaving  the  RPP.  Since  solid 
numbers  are  always  larger  than  the  number  of  RPP's,  a  comparison  is  made 
between  the  variable  NASC  and  the  variable  NRPP  to  verify  that  the  ray  is 
leaving  the  RPP.  If  the  variable  NASC  does  not  represent  the  current  RPP, 
there  is  an  error,  and  control  is  transferred  to  the  error  diagnostic  section. 
If  the  variable  NASC  does  represent  the  RPP  solid  number,  a  further  test  is 
made  to  verify  that  the  ray  is  leaving  the  RPP  by  testing  the  variable  LSURF 
for  a  negative  condition.  If  not  negative,  there  is  an  error.  If  negative, 
control  is  transferred  to  find  the  number  of  the  abutting  RPP. 

The  statements 

C?4  DETERMINE  REGION  POINT  XP  NON  ENTERING 
C 

620  DO  625  J»J1 * JZ 

jBpniM«MAST£R< J) 

CALL  *0*1  < IRPRIM SURF tNASC*LTRUEI 
IF (LTRUE.GT.OIGOTO  650 
6?5  CONTINUE 

test  all  of  the  regions  in  the  enter  (or  leave)  list  against  the  current 
location  of  point  XP  by  calling  Subroutine  WOWI  for  each  region  until  Sub¬ 
routine  WOW I  returns  with  the  variable  LTRUE  set  to  one.  This  indicates  that 
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point  XP  is  in  the  region  just  passed  to  Subroutine  WOWI. 
The  statement 


Rav  leaving  rpp 
IF (NflSC.GT.NBPP) GOTO  *40 


the  hits  table!  '  n"01  ls  t™”=f^red  to  e*a„l„e  the  nett  hit  In 


The  statement 


IF  (LSURF  )  6;j().  7oo*640 


This  statement  therefor^test^the*21^6™1^  ,that  ^  Current  body  was  an  RpP- 
leaving  or  entering  «  tb« 

transferred  to  find  the  number  of  the  abuttinfaPP  Tf  *S 

transferred  to  examine  the  next  hit  in  the  hUs  tlbie  erlng’  C°ntr01  1S 

The  statement 


630  CALL  PPPg  I L SURF *  XP. JRp) 


lLUttdtWh.un  tHe  ^  iS  leavln8  the  current  RPP 
KPP  that  the  ray  is  entering. 


to  compute  the  number  of  the 


The  statements 


IF<Iwp*GTi0)gO7o  a3| 

TRPRIM-o 

return 


"t"  !l”e1StLetUr”ed  by  S"br°utl“  *"2.  If  Subroutine  RPP2 
BPP.  Region  variable  IRPRW  eet“„  l!!  1=  no  abutting 

the  calling  program.  ’  and  contr°l  is  then  returned  to 
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The  statements 


C 

C?6  RETRIEVE  LOCAT ION/NUMHER  OF  REGION  EnTER  (.1ST 
C  COMPOTE  BEGINNING  AND  END  OF  LIST 

C 

631  LTRUE»0 

LOC«LB0DY*3*(1BP-i) 

loc»loc*i 

CALL  UN2(LOC*LENT,LEAV) 
loc*loc*  I 

CAUL  ON2 (LOc«NENT,Ne*V) 

Jl-LENT 

j2«LENT*NENT-i 


are  executed  when  Subroutine  RPP2  returns  with  the  number  of  an  abutting  RPP. 
These  statements  set  the  variable  LTRUE  to  zero  and  retrieve  the  location  of 
the  body  data  of  the  new  RPP,  from  which  the  locations  of  the  region  entry  list 
and  the  number  of  possible  regions  for  the  entry  list  are  computed. 

The  statement 


if<ji.gt.J2>goto  too 


determines  if  there  are  any  regions  listed  in  the  entry  list.  No  entries 
indicate  an  error  in  the  entry  list. 


The  statements 


C?7  DETERMINE  REGION  POINT  AP  NOW  ENTERING  IN  NE*  RPP 
C 

DO  632 

IRPRI*«maST€W  t Jt 

CALL  WO*I l IRPRIm.LSURF.IRP. LTRUE) 
IF<LTRUE.GT.O>GOTO  650 
632  CONTINUE 
640  CONTINUE 
GOTO  700 


test  the  region  in  the  enter  list  against  the  current  location  of  point  XP  by 
calling  Subroutine  WOWI  for  each  region  in  the  list  until  Subroutine  WOWI 
returns  with  the  variable  LTRUE  set  to  one.  This  indicates  that  point  XP  is 
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in  the  region  just  passed  to  Subroutine  WOWI.  If  no  region  is  found  from  the 
enter  list,  control  is  returned  to  the  beginning  of  the  main  DO  loop  to  analyze 
the  next  hit  in  the  table  of  hits.  If  no  region  has  been  found  after  analyz¬ 
ing  all  of  the  hits  in  the  table  of  hits,  an  error  has  occurred. 

The  statement 


C 

C?B  REGION  POINT  XP  ENTERING  MftS  BEEN  DETERMINED 
C 

650  IF ( IR.EQ. IRPRIM] GOTO  660 


begins  the  section  for  testing  the  region  where  XP  is  located  when  that  region 
has  been  located.  This  statement  is  used  to  determine  if  the  region  where 
point  XP  is  now  located  is  the  same  as  the  region  at  the  last  location  of 
point  XP. 

The  statements 


IF (Sl.EO.O.)GOTO  660 
IF<Si.lT.0.>GOTO  700 
IFUB$(S1>  .LE.1.0E-6)  GOTO  660 


are  executed  if  point  XP  has  entered  a  new  region.  These  statements  therefore 
test  the  distance  travelled  through  the  previous  region  to  determine  if  it  is 
zero,  less  than  zero,  or  very  nearly  zero.  If  the  distance  is  zero  or  very 
nearly  zero,  control  is  transferred  to  update  the  region  identifier  and  con¬ 
tinue  the  ray.  If  SI  is  less  than  zero,  an  error  has  occurred. 

The  statements 

IF IIVOLUM.eq, I  YES  I  RETURN 
IF ( I  TESTS. EQ. I  Ye S> RETURN 


determine  if  either  Subroutine  VOLUM  or  Subroutine  TESTG  called  Subroutine  G1 
by  comparing  the  variables  IVOLUM  or  ITESTG  with  the  variable  IYES.  If 
IVOLUM-1  (IYES=1),  Subroutine  G1  was  called  by  Subroutine  VOLUM,  and  control 
is  returned  to  Subroutine  VOLUM;  if  ITESTG-1,  Subroutine  G1  was  called  by 
Subroutine  TESTG,  and  control  is  returned  to  Subroutine  TESTG. 
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The  statements 


C?9  RETRIEVE  SPACE  AND  COMPONENT  CODE  OF  REGION 
C 

LOCLIRFOMR-l 

CALL  UN2ILOC.ICOOE.IOENT) 

LRC"LIRFO«IRPRIm-i 

CALC  UNgCLOCtICOOEltlOENTj) 


retrieve  the  component  codes  (ICODE  and  ICODE1)  and  the  space  codes  (IDENT 
and  IDENT1)  for  the  region  where  point  XP  was  previously  located  and  for  the 
new  region  where  point  XP  is  presently  located. 

The  statement 

IP ( IDENT. EQ.i» GOTO  655 


determines  if  the  space  of  the  previous  region  is  exterior  volume  by  testing 
space  code  variable  IDENT  for  a  value  of  one. 

The  statements 


IF  (tOENT.EQ.IOENTpGOTO  660 
return 

are  executed  if  the  previous  region  of  point  XP  was  interior  volume.  These 
statements  determine  if  the  space  codes  of  the  previous  region  of  point  XP 
and  the  present  region  of  XP  are  identical.  If  the  space  codes  are  identical, 
control  is  transferred  to  update  the  region  identifier  and  continue  the  ray. 
If  the  space  codes  are  not  identical,  control  is  returned  to  the  calling 
program. 

The  statement 


655  irnCOOE.NE.ICOOEpRETURN 

is  executed  if  it  was  determined  that  the  previous  region  of  point  XP  was 
exterior  volume.  This  statement  therefore  compares  the  component  codes  of 
the  two  regions.  If  the  component  codes  are  different,  control  is  trans¬ 
ferred  to  the  calling  program. 
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The  statements 

660  IRMRPRIM 

goto  2o 


update  the  region  identifier  to  the  region  where  point  XP  is  now  located  if 
the  two  regions  are  found  to  be  identical,  or  if  distance  (SI)  through 
the  previous  region  is  zero  or  very  nearly  zero,  or  if  the  space  codes  of  the 
two  regions  for  interior  volume  are  equal,  or  if  the  component  codes  of  the 
two  regions  for  exterior  volume  are  identical.  After  updating  the  region 
identifier  to  the  present  region, control  is  transferred  to  the  beginning  of 
this  subroutine  to  continue  tracing  the  ray  through  the  region. 


The  statements 


C 

Cv>  START  OP  ERROR  D I  AGNOSTIC  SECTION 
C 

700  IERR" 1  ERR* 1 

WRITE  ( 6  *  )  I  ERR 


are  the  beginning  of  the  section  of  the  subroutine  for  diagnostic  error 
printing.  These  statements  are  executed  when  an  error  has  occurred  in  the 
subroutine.  Therefore,  the  variable  I ERR  for  the  number  of  errors  in  Sub¬ 
routine  G1  is  increased  by  one,  and  an  error  message  is  printed  out. 

The  statements 


C 

Cll  COMPUTE  OR 10  CELL  NUMBER  IE  fli  M)T  C*LL£0  BY  VOLUm  OR  TESTO 
C 

irUVOLUM.EQ.IYES.Ofl.ITESTG.EG.IYESlaOTO  70* 

IH*ABS<H/CELSIZ  >*.5 
IE (H.LT.O.i IH*-IH 
I  V»A8S  (V/CELSIZ  )  ■*  ,  5 
IEtV.LT.0.) I V--I W 
WRITE  <6*905>IH.IV 


compute  and  print  out  the  horizontal  cell  number  and  the  vertical  cell  number 

if  this  subroutine  was  not  called  by  either  Subroutine  VOLUM  or  Subroutine 
TESTG. 
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The  statement 

7 05  WAITE  Jl tNASCf IRtSMtSlfWetXB 


is  used  to  print  out  various  program  parameters  of  Subroutine  GI  for  error 
checking. 

The  statements 

c 

COMPUTE  COORDINATES  OF  AP  At  TIME  Of  ERROR 
C 

*0D<  n*xe  (d-oist 
xeO<2>*A6l2»-Dl$T 
X00(3>«XB13>-OIST 
WAITE  f5t9o7)X0OfOlST 

compute  the  coordinates  of  a  point  relative  to  XB,  the  location  of  the  start 
of  the  ray  in  the  region,  and  the  distance,  DIST,  that  XP  has  travelled  into 
the  region  at  the  time  of  the  error. 

The  statements 


WAITE  (6*900) 
NN*NflOjY*NRPP 


print  column  headings  for  the  error  diagnostic  table  that  is  to  be  prepared 
by  the  following  DO  loop.  The  limit  of  the  DO  loop  is  also  computed  as  the 
total  of  the  number  of  bodies  plus  the  number  of  the  rectangular  parallelepiped 
in  the  region. 

The  statement 

CJ3  PRINT  out  pertinent  OaTa  FOR  ALL  800IC5  IN  REGION  INTERSECTED 
C  BY  RAY  FOR  ERROR  ANALYSIS 

C 

DO  750  1*1. NN 

begins  a  DO  loop  which  scans  all  of  the  solids  in  the  region  to  find  those 
intersected  by  the  present  ray. 

The  statements 

L0C*L!0MM 

CALL  UNjtLOC* l 1' Ij* I  3' 
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retrieve  the  KLOOF  value  that  was  stored  for  the  solid  earlier  in  the 
subroutine  when  the  intersected  solid  was  located  and  its  RIN  and  ROUT 
distance  computed  and  stored. 

The  statement 


ir<KLOOP.NE.I3>QOTO  TSO 


determines  if  the  current  solid  was  intersected  by  the  ray.  If  not,  control 
is  returned  to  the  beginning  of  the  DO  loop  to  test  the  next  solid. 

The  statements 


HIM-ASTERIIJK) 

IJK-LROT*!-^ 

R0UT*«STER(1JK) 


retrieve  the  RIN  and  ROUT  values  of  the  solid  when  one  is  found  that  was 
intersected  by  the  ray. 

The  statements 


If (RIN.NE.ROUT)OOTO  710 
WRITE  (6i9l0>«lN*I 
0OTO  750 


compare  RIN  with  ROUT  for  the  current  intersected  solid.  If  the  values  are 
equal,  an  error  has  occurred  and  an  error  message  is  printed  out.  Control  is 
then  returned  to  the  beginning  of  the  DO  loop  to  consider  the  next  solid. 


The  statement 


C 

?10  IF UBS (»IN) #NE,PINF>G0T0 


determines  if  the  ray  had  an  entry  point  oh  the  solid.  If  there  was  a  RIN 
of  the  solid,  the  program  branches  to  compare  RIN  and  the  distance  to  the 
previous  intersect  before  the  error  occurred. 
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The  statement 

If < *0$ (ROUT) »PINP) 7*0*750 » 740 


is  executed  if  the  previous  IF  statement  determined  that  the  ray  did  not  enter 
the  solid.  This  statement  therefore  tests  ROUT  for  an  exit  intersect.  If 
there  is  no  exit  intersect,  there  is  an  error  in  the  program,  and  control  is 
returned  to  test  the  next  solid.  If  an  exit  occurred,  the  ray  originated 
within  the  solid,  and  control  is  passed  to  a  WRITE  statement  for  output  of 
information  on  the  solid. 

The  statements 

720  IF(RIN-DIST)730*744»74S 
730  IF  (R0UT»DIST)741 t 742 *74 3 


are  executed  if  the  solid  has  an  entry  intersect.  The  first  statement  com 
pares  RIN  and  the  distance,  DIST,  to  the  previous  intersect  before  the  error 
occurred.  If  RIN  is  greater,  the  ray  will  hit  the  present  solid.  If  RIN  is 
equal  to  DIST,  the  ray  was  entering  the  present  solid.  If  RIN  is  less  than 
DIST,  control  is  transferred  to  compare  ROUT  with  DIST.  The  comparison  of 
ROUT  and  DIST  reveals  that  the  ray  was  in  the  solid  when  the  error  occurred 
if  ROUT  is  greater,  or  that  the  ray  has  hit  the  solid  if  ROUT  is  less,  or 
that  the  ray  is  leaving  the  solid  if  ROUT  and  DIST  are  equal.  Whichever 
condition  has  occurred  is  printed  out,  and  control  is  transferred  to  test 
the  next  solid. 

The  statements 


740  WRITE  (6t9ll>«lN.R0UT.Il»I2»I 
GOTO  750 

74J  WRITE  <6* 912) R IN « ROUT • I 1 • 12* 1 

742  WRITE7*fc*9l3)«IN*«0UT.Il»l2»l 

GOTO  750  .  . 

743  WRITE  (6t9l4)«lN*R0UT«U*I2»I 
GOTO  730 

744  WRITE  <6«91S)«IN»G0UT»II»I2»I 
GOTO  730 

743  WRITE  (6»916) RlN«R0UT *11*12*1 
750  CONTINUE 
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Eli™  “  “™"‘”  s.t.ssn,';KT^r;^s  £, 


The  statements 


WRIIE  (ft^iTMERR.ieRH.ieRB.IERR 

jnpftlMB-! 


?nhTc.n<rroutlne  Gi and  set  the 

has  occurred.  the  camn8  program  than  an  error 


The  statements 


800  IE  !  [ERR.QE.N01ERR18RITe  i 6 t 9  J  8  I  Nt»it«0 
RETURN 
END 


a:uro£tSubrn™ti„re°Gl%rrr°brS,:ha^h^:  £T"V ‘B  S"broutlne  G1  '*«>  «» 

limit,  an  error  message  is  Drini-pH  r  011711  ?**  errors  is  greater  than  the 
program.  386  15  pr±nted*  c°ntrol  is  then  returned  to  the  calling 
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Subroutine  WOWI (JREGtLSURF,MEX,LTRUE) 

This  subroutine  is  used  to  determine  if  a  given  point  lies  within  a  region 
when  given  a  point,  XB,  and  a  region,  JREG.  That  is,  WOWI  determines  which  of 
the  possible  regions  actually  has  been  entered  by  the  ray*  The  subroutine 
determines  if  given  point  XB  satisfies  the  description  of  region  JREG  by  testing 
each  body  in  JREG  against  the  following  rules: 

1*  A  (+)  operator  is  valid  if  ROUT  >  0  and  RIN  <_  DIST  <  ROUT, 

2,  A  (-)  operator  is  valid  if  ROUT  <_  0  or  DIST  <  RIN  or  DIST  ROUT. 

3.  An  (OR)  operator  is  valid  only  if  every  (+)  and  (-)  within  the 

(OR)  statement  is  valid, 

4*  A  region  description  containing  one  or  more  (OR)  statements  is 
satisfied  if  any  one  of  the  (OR)  statements  is  valid. 

5,  A  region  description  containing  no  (OR)  statement  is  satisfied  only 
if  every  (+)  and  (-)  operator  is  valid, 

6,  A  sufficient  condition  for  point  XB  to  be  a  region  JREG  is  that  the 
region  description  of  JREG  be  satisfied,  (Two  regions  cannot  be 
satisfied  for  the  same  point*) 

The  statements 


DIMENSION  mastepmoooiu 
COMMON  ASTEHUOO0O5 
COMwGn/PAREm/XB (31 |W8I3>  * 

COMMON/GeOM/LBASEiRINiROUTtLRl*tHO»PlNF*ICRft*DlST 

C0MM0N^UNCGEM/NRPPiNTRlPiNSCAL>NB0DTiNRMA’t*CTRlPflPSCAL*LREOD* 
\  LDATa*LRINiLROT  ,L IQ ,LOCOA« 1 15  > f LBOOY  *tiASt  *KLG0P 

COMMON/OAVlS/IG&IOiLOOPt I  NORM 

COMMON/ WHICH/N0O 


dimension  the  MASTER  array  and  pass  information  into  and  out  of  the  subroutine. 


The  statement 


EQUIVALENCE (ASTER, MaSTcRI 


sets  the  MASTER  array  equivalent  to  the  ASTER  array. 
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The  statement 

C 

901  FORMAT  (1H0.3ZHERR0B  IN  Oj  AT  J40  „A0  ITVPE.SX,4MITV.IS> 

is  a  format  statement  for  an  error  message  to  be  used  later  in  the  subroutine. 

The  statement 
C 

inc»LREGO*JREG-l 


is  used  to  set  LOC  to  the  location  of  the  region  data  in  the  MASTER  array  of 
the  region  to  be  considered. 

The  statements 


C, 

Cl  RETRIEVE  NUMBER  OF  BODIES  IN  RESlON  AND  LOCATION  OF 
C  OPERATOR/BOOT  list 

c 

CALL  UNZILOCtLOCD.NC) 

c 

C?  RETRIEVE  first  OPERaTORFBODT  FROM  LIST 

CALL  UN2(L0C0*I0P.N60» 


retrieve  the  location  of  the  region  data,  the  number  of  descriptors  in  the 
region  being  considered,  the  operator  of  the  first  descriptor,  and  the  solid 
number  of  the  first  descriptor. 

The  statements 


N»1 

ioper-iop 


initialize  to  the  first  descriptor  and  assign  the  operator  of  the  first 
descriptor  to  a  different  variable  name  which  will  represent  the  operator 
part  of  each  different  descriptor* 

The  statements 
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C 

C*  RETRIEVE  ENTER  AND  EXIT  SURFACE  NUMBERS  ANO  NUMBER  OF  LAST  RAY 
C 

10  ttemp»lio*nso*i 

CALL  UN3UTEMP*lRi*lR0«L00P1 


retrieve  the  entering  surface  number,  the  leaving  surface  number *  and  the 
value  at  location  LOOP* 

The  statements 


C 

C4  RETRIEVE  BODY  TYRE  and  LOCATION  OF  DaTA 
C 

TTEmP«L,BODY*3*(NBO*I  | 

CALL  UN 2 1 1  TEMP  ? I  TYPE  » LOCO A ) 


compute  and  retrieve ,  from  the  body  data,  the  type  of  body  (ITYPE)  that  the 
solid  number  (NBO)  now  being  processed  represents* 

The  statement 


IF (LOOP.NE.KLQQP>OOT0  30 

is  used  to  determine  if  RIN  and  ROUT  for  the  current  solid  have  already  been 
computed*  If  not,  control  is  transferred  to  compute  RIN  and  ROUT  for  the 
body  type  under  consideration. 

The  statement 


C 


rraTYPE.GTanGOTO  *0 


is  used  to  determine  if  the  number  of  the  body  type  is  valid*  If  it  is  not, 
control  is  transferred  to  print  an  error* 


The  statements 


C 

CB  RETRIEVE  RlN  AND  ROUT  FOR  CURRENT  0Oqy 
C 

I JK*LRIN*N0O-1 
RlN«A$TEft  < I JK ) 

IJK*LROT^NBO-i 

R0UT«A3TER(IJK) 
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retrieve  the  values  of  RIN  and  ROUT  If  they  have  already  been  computed 
The  statement 

iFflTYPE.lT.loJGOTO  3m 


determines  if  the 
arbitrary  surface , 


type  of  body  for  the  retrieved  RIN  and  ROUT  is  a  torus  or  an 
since  these  two  bodies  can  have  more  than  one  RIN/ROUT  set. 


The  statements 


IS  NEXT  H IN/ROUT  SET  REQUIRED  roR  TOR  OR  *RS 
IF(  ROUT. t.T,0*>  SOTO  *00 

TF(0IST . IE • ROUT ) OOTO  3l0 


==£■■£  ~  =• 

the  Doinf  riinno  t-u  -  A  R0UT  less  than  the  distance  indicates  that 

,  ®  e  P^st  the  recorded  RIN/ROUT  set  Th&  c  k 

therefore  computes  the  next  RIN/ROUT  set,  if  any  If  the  <U  r  subroutine 
the  stored  ROUT,  control  is  ira„cf0  ,  ,  y*  f  th  distance  is  less  than 

intersection.  transferred  to  compute  the  distance  to  the  next 


The  statements 


C 

30  LRI*I 
LRO-! 

ITY*ITVPE*j 

IF<ITY,GEm  ,*No.  ITY.LE.lJlflOTO  100 


type  to  avoid  a^ero^nde^ii^thi11?  numbers  to  one,  increment  the  body 

-st  the  body  number  t  L  f  T  ■“*’ 

printed  out.  ls  3  valld  number‘  If  «°t,  an  error  i. 
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The  statements 


40  IERPM6RRM  _  _ 
WRITE  (e'Ool^YPE 

avTltRM 


are  used  to  print  out  an  error  message  if  the  body  number  is  not  valid,  and 
then  to  the  calling  program  Subroutine  Gl. 

The  statements 


C 

Ct  COMPUTE  r in/rout  for  current  BOOT 

c  RPP  SOX  SPH  RCC  REC  TRC  ELL  RAN  aRB  TEC  TOR  aRS 


loo 

goto< 

1  lO’iao’UoMAoMSo’lEOtlTo*  180*J’0*200»210*220>  *1TY 

no 

CALL 

RPP(NBO) 

GOTO 

300 

120 

CALL 

BOX 

GOTO 

300 

130 

CALL 

SPH 

GOTO 

300 

140 

CALL 

RCC 

GtiTf) 

300 

150 

CALL 

REC 

GOTO 

300 

160 

CALL 

TRC 

GOTO 

300 

170 

CALL 

ELL 

GCTO 

300 

100 

CALL 

RAW 

GOTO 

300 

190 

CALL 

ARB 

GOTO 

300 

200 

CALL 

TEC 

GOTO 

300 

210 

CALL 

TOR 

GOTO 

300 

220 

CALL 

ARS 

are  used  to  transfer  control  to  a  statement  that  calls  the  body  subroutine  for 
the  body  being  considered.  . 
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The  statements 


C 

300  IJK«LI0»NBO-l 

M*STER  < I JK ) -KLOOP* 1 15* <L«0’»G**LRI  I 


are  used  to  pack  and  store  into  one  word  the  entering  surface  number,  the 
leaving  surface  number,  and  the  current  value  of  KLOOP  at  a  location  accord¬ 
ing  to  the  body  number. 

The  statements 


C 

Ca  DETERMINE  CORRECT  RIN/ROUT  AND  STORE  IN  ASTER  ARfi*V 

C 

310  JFIROUT.LE.O.JGQTO  33o 

IE  USSlRlN-OlST)  ,  <JT.  DlST«i.  ()£-(,  J0OTO  320 
RINaOIST 
GOTO  330 
C 

3?0  IF  UBS l ROUT-O I  ST ) .It ,QI5T« 1 . 0E-6> ROUT*0IST 
C 

330  IJK»LBIN*N80-1 
aSTer(ijki»rin 
IJK«LR0T*NBO-l 

asteri  ijkurout 


determine  if  the  ray  hits  the  body.  If  not,  control  is  transferred  to  store 
RIN  and  ROUT  for  a  miss.  If  the  ray  intersects  the  body,  it  is  determined 
whether  the  next  intersect  was  a  RIN  or  ROUT.  RIN  or  ROUT  are  equated  to  the 
distance,  and  the  values  of  RIN  and  ROUT  are  stored  in  the  ASTER  array 
according  to  the  body  number. 

The  statement 


C 

Co  TEST  CONDITIONS  F OP  t'OINT  *0  IN  REGION  UNDER  TEST 
C 

*00  IF  ( tOPfR  *GT  .*) GOTO  S0f> 

determines  if  the  operator  of  the  present  body  is  a  (-)  by  testing  for  a 
greater  than  4  condition.  The  numbers  5-8  represent  (-)  operators;  1-4 
represent  (+)  operators.  The  numbers  1  or  5  also  represent  (OR)  operators. 
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The  statements 


CIO  <♦>  OPERATOR  TEST  RIN.LE.OIST.LT.RoUT  POInT  aB  |n  BOOT 

if (rin.gt.dist)goto  too 

IF(OIST-ROUT)600*T00*T00 


are  executed  if  it  was  determined  by  the  previous  test  that  the  operator  was 
a  (+).  These  statements  test  for  a  valid  (+)  operator  by  testing  for  RIN  <_ 
distance  >  ROUT  and  ROUT  >  0.  If  these  conditions  are  not  satisfied,  the 
program  branches  to  test  for  an  (OR)  operator  condition.  If  these  conditions 
are  satisfied,  the  program  branches  to  check  the  next  body  in  the  description. 

The  statements 


C 

Cll  <•>  OPERATOR  TEST  ROUT.LE.O  OR  0IST.LT. RIN  OR  0IS?.0C.R0UT 
c  POINT  KB  OUTSIOE  OF  BOOT 

c 

500  IF (ROUT .LE.0. )G0T0  600 
IF <OIST.LT.RIN>GOTO  600 
IF(OIST.EQ.RIN)GOTO  Too 
IF(OIST.LT.ROUT)GOTO  too 


are  executed  for  a  (-)  operator  condition  to  test  for  ROUT  <  0  or  distance 
<  RIN  or  distance  >_  ROUT.  If  any  one  of  these  conditions  is  true,  the 
program  tranches  to  check  the  next  body  in  the  description.  If  one  of  the 
conditions  is  not  true  and  RIN  <  distance  <  ROUT,  the  program  branches  to 
test  for  an  (OR)  operator  condition. 

The  statements 


Cf2  CHECK  NEXT  BOOT  in  OPERATOR/BOOT  LIST 
C 

600  IF (N.GE.NC) GOTO  800 
N«N*1 

LOCO"LOCO*1 

CALL  UN2<LOC0.10PE*»N«O> 
if<iope».eq.i.or.ioper.eo.5>goto  boo 
GOTO  10 

are  executed  if  either  a  valid  (+)  or  (-)  operator  was  found.  These  statements 
check  if  the  last  body  in  the  region  is  being  considered  and,  if  true,  branch 
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to  indicate  that  point  XB  lies  in  the  region  presently  being  considered. 

If  the  last  body  in  the  region.  Is  not  being  considered,  the  next  body  and 
operator  are  located  and  retrieved  and  tested  for  a  1  or  5  to  determine  if 
there  is  an  (OR)  operator.  If  so,  point  XB  lies  in  the  present  region 
since  a  region  description  is  satisfied  if  any  one  of  the  (OR)  statements 
is  valid.  If  there  is  no  (OR)  operator,  control  Is  transferred  to  the 
beginning  of  the  subroutine  to  process  the  next  descriptor. 

The  statements 


C 

Cl  3  (OB)  OPERATOR  TEST 

C  ALL  <*>  OR  (-)  ] N  (OR)  SERIES  MUST  yg  W*LlO 

C 

Too  IFtlOP.NE.  1  .AND.  I0P.NE»S>  RETURN 
IF (Ni GE  »NC ) RE  TURN 
N»N*I 

00  710  NN«N«NC 
L0CD»L0CD* I 

CALL  UN? (LOCO. IOPERtNMO) 

IF  < lOPER.EQ.l .OR, I OPER . EQ . 5 » GOTO 
710  CONTINUE 
RETURN 
720  N»NN 

GOTO  lo 


are  executed  if  the  test  on  a  (+)  or  (-)  operator  was  not  valid.  These  state¬ 
ments  test  for  an  (OR)  operator;  if  not  an  (OR)  operator,  control  is 
returned  to  the  calling  program  with  the  result  that  point  XB  is  not  in  the 
present  region.  However,  if  the  test  reveals  an  (OR)  operator,  and  the  present 
body  is  not  the  last  descriptor  in  the  region,  the  next  body  and  operator  are 
located  and  retrieved.  The  new  operator  is  tested  for  an  (OR)  operator;  if 
there  is  an  (OR)  operator,  the  search  of  the  descriptors  in  the  region  is 
continued  until  either  a  (+)  or  (-)  operator  is  found,  or  until  all  of  the 
descriptors  have  been  tested.  If  a  (+)  or  (-)  operator  is  not  found,  control 
is  returned  to  the  calling  program  with  the  result  that  point  XB  is  not  in  the 
present  region.  If  a  (+)  or  (-)  operator  is  located  for  a  descriptor  within 
the  present  region,  control  Is  transferred  to  the  beginning  of  the  subroutine 
to  process  this  next  descriptor. 
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The  statements 


C 

C)4  POINT  x&  within  CURRENT  REQIOn.  LTRUe  ■  l 

c 

800  LTRUE*LTRUE*l 
RETURN 
END 
C 
C 


set  LTKUE  to  one  and  return  to  Subroutine  G1  with  the  result  that  point  XB 
lies  within  the  present  region  being  considered* 
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Subroutine  RFP(MBO) 

This  subroutine  is  used  to  compute  the  intersection  of  a  ray  with  a 
rectangular  parallelepiped  as  depicted  in  the  following  figure: 
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FIG,  60,  Rectangular  Parallelepiped 


The  statements 


DIMENSION  PR  *6)  *LR  tfeUXS  (6)  *LST  16* 

DIMENSION  MASTER* ! 0000) 

COMMON  ASTE&U0Q00) 

COMMON/PAREM/XB<3)  t«BO)  #IR 

C0MMON/GEOM/LBASEtRlNtROUTtLRltLR0.PlNF*lCRRtDlSr 

C0MM0N/UNCQeM/NRPp,HTRIP.NSC*L.NB0Di.NBM*)t.LTRlP.LSC*L.C»CO0» 

!  L0*T**lRIN»LROT »LIO»LOCDa 1 1 1 5 » 130  *LB0DY  t^ASC*KL004 


are  used  to  dimension  arrays  and  pass  information  into  and  out  of  this 
subroutine . 
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The  statement 

EQUIVALENCE  <*UST£P, ASTgR) 


is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 


The  statement 


C 

901  r0RMATUH0»12H£Rfto«  IN  RPP/4H  L  "  *  1 1 0 .5*  .4MNB0*  1 1 10 »SX * 3N1R- . 

1  I10/4H  XBi.3E2o.10/4H  MB*. 3E20. 1 0/*W  PRa.tEz0.lQ/4H  LRa.tllQ) 


is  a  format  statement  for  an  error  message  later  in  the  subroutine. 


The  statements 


C 

Cl  SET  UP  SIX  MEMBER  ARRAY  TO  REPRESENT  COORDINATE  RaIRS 

C 

LSTUl.l 
LST ( 2) ■ l 

LST(D«z 
LSH*>-2 
LST (5)  «3 
LST (6>>3 


are  used  to  set  up  a  six  member  array  to  denote  the  x,  y,  z  pairs,  respec¬ 
tively,  of  the  RPP. 


The  statements 


L*0 

PR ( 1 1 *0  * 
PR  <2>  «o* 


are  used  to  initialize  subroutine  variables  to  zero  for  later  use  In  the 
subroutine. 


The  statements 
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C 

C?  RETRIEVE  THE  SIX  BOUNDARIES  OF  THE  Hpp 

C 

00  10  I-l.B 
X$(I)«S(N80*U 

10  continue 


constitute  a  loop  which  retrieves,  using  Function  S(I,N),  the  location  ini 
the  ASTER  array  of  the  coordinates  of  the  six  sides  of  the  rectangular 
parallelepiped  and  stores  them  in  a  six-element  array  as  follows: 


XSCl)  =  X 

min 

XS(2)  «  X 

max 

XS  (3)  =  Y 

min 

XS  (4)  =  Y 

max 

XS  (5)  =  Z  J 
min 

XS(6)  =  Z 

max 


The  statement 
C 

00  100  I“lt6 

is  used  to  start  a  loop  which  will  compute  the  ray  intersections  (if  any)  and 
the  distances  from  the  origin  of  the  ray  to  the  intersections  with  the  RPP. 

The  statement 

1 f-LST ( I » 

is  used  to  assign  the  value  of  LST(I)  or  face  pair  number  to  the  variable  II 
for  use  as  a  subscript. 

The  statement 

TEMPOS  II»-XB<II1 
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Is  used  to  compute  the  value  of 


3  5,6 


where 

is  the  distance  from  XB  to  the  intersection  point 


XSj  is  a  bounding  plane  of  the  RPP 


xbt 

is 

the 

XB  ,  XB 

or  XB 

coordinate  of  XB 

J 

x  y 

z 

wbt 

is 

the 

WB  ,  WB 

or  WB 

direction  cosine  of  WB 

J  x  y  z 


The  statements 

IF (sb ( JI) )  20*100*30 
20  IF(TEmp >40*100*100 
30  IF(TEMP.LE.O. I60TO  100 
40  TRT-TEMP/SBtll) 

are  used  to  determine  if  the  direction  of  the  ray  is  away  from  or  toward  the 
plane  in  question.  If  away  from  the  plane  (Sj  is  negative),  a  return  is 
made  to  the  beginning  of  the  loop,  and  a  new  plane  is  then  considered.  If 
toward  the  plane  (S  is  positive),  the  distance  to  the  plane  is  computed  by 
Equation  (2). 

The  statements 

DO  60  J»l*3 
IFU.EQ.InsOTO  60 

ci  compute  Intersect /Plane  coordinate 

c 

KPY-XB( J) *TRY**WB( J) 

C*  DETERMINE  IF  INTERSECT  OCCURS  WITHIN  BOUNDARY  OF  PLANE 
C 

If)  (XS(2*J-1)-XRV1»(XRV-)ISI**J)  >  *LT*0*faOTO  loo 
60  CONTINUE 


XSI  - 
WB. 


(XSj  -  XBj)  for  the  equation 


J 

1 


I 

1.2 


m 
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constitute  a  loop  which  computes  the  intersect  point  XI  for  the  plane  being 
considered  from  the  equation  L 


XIC  =  XBC  +  WBc.Sl 


(3) 


This  intersect  point  is  then  tested  to  determine  if  it  lies  within  the  con¬ 
fines  of  the  bounding  planes  according  to  the  equations  (for  an  intersect  point 
on  an  X  plane) 


Y 

< 

Y 

<  Y 

min 

c 

“  max 

Z  , 

< 

Z 

<  Z 

mm 

c 

“*  max 

(4) 


where  and  Z are  the  y-z  coordinates  of  the  intersect  point  on  the  X  plane 
being  considered. 

The  statements 


L-LM 

C 

C*  COMPUTE  DISTANCE  TO  INTERSECT  POINT 
C 

PR (L ) aTBY 
U«(L>»I 

IP<L.EQ.Z>90T0  i3n 
IFtL.LT.zJOOTO  100 


are  used  to  store  the  distance,  Sj,  to  the  intersect  point  on  the  plane  and 
the  surface  number  of  the  plane  with  the  intersect  point.  A  test  is  also 
made  to  determine  if  two  planes  of  the  RPP  have  been  Intersected  (the  maximum 
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possible  number).  If  not,  a  return  is  made  to  the  beginning  of  the  loop  and 
a  new  plane  is  considered.  If  two  planes  have  been  intersected  »  an  exit 
from  the  loop  is  performed  to  compute  the  values  of  RIN  and  ROUT. 

The  statements 


WRITE  <6*901 > LjNBO* iRi IStWSfPRsLR 

R0UT«-P!NF 

RETURN 


are  used  to  output  an  error  message  along  with  some  program  values. 
The  statement 

loo  CONTINUE 


is  used  to  return  control  to  the  beginning  of  the  loop  if  all  six  bounding 
planes  have  not  been  considered*  If  the  six  planes  have  been  considered, 
control  is  passed  out  of  the  loop  to  the  next  statement* 

The  statement 

GOTO  UO 

is  used  to  pass  control  to  another  part  of  the  subroutine  after  all  six 
bounding  planes  of  the  RFP  have  been  considered* 

The  statement 

C 

136  IF  UBS  (PR  <i >-PR(?M *PR < 1 ) *1  * 0C-6* GOTO  200 

Is  used  to  determine  if  the  distance  between  the  intersect  points  is  less 
than  a  very  small  minimum  value,  such  as  an  intersect  taking  place  on  a  comer* 
If  the  distance  is  large  enough,  RIN  and  ROUT  and  the  entering  and  leaving 
surface  numbers  are  determined. 
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The  statement 

IF {PR  < i ) -PR  <2) ) 140*180* ISO 

is  used  to  determine  which  of  the  intersect  points  is  RIN  and  ROUT. 
The  statements 


Ca  COMPUTE  RIn*  ROUT,  AND  SURFACE  NUMBERS  of  INTERSECTS 

c 

140  PIN-PRm 

ROUTapR (j) 

LR0»l  R(Z> 

RETU{ H 

150  «!N"t  R  { Z ) 

|.RI*LR  (2) 

ROUTaPR I 1 1 

LRO»LR(ll 

RETURN 


are  two  identical  groups  of  statements  which  compute  the  values  of  RIN,  ROUT, 
the  entering  surface  number,  and  the  leaving  surface  number,  depending  upon 
the  results  of  the  previous  test  that  determined  which  of  the  intersect 
points  was  RIN  and  which  was  ROUT.  When  the  computation  is  complete  for 
either  condition, control  is  returned  to  the  calling  program. 


The  statements 


C 

140  IF (L*0E • l ) GOTO  1  So 

c 

CT  ASSIQN  value  to  rout  for  no  intersection 

c 

1  TO  ROUTa.PlNF 

return 


are  used  to  determine  if  no  intersection  took  place  or  if  one  inter¬ 
section  took  place.  If  no  intersection  took  place,  ROUT  is  set  to  an 
extremely  large  negative  value  and  control  is  returned  to  the  calling 
program.  If  one  intersection  occurred, control  is  passed  to  the  next  group 
of  statements  for  computation  of  RIN  and  ROUT. 
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The  statements 


C 

Ce  RAY  ORIGINATES  WITHIN  RPR 
C 

18(1  RIN«-PINF 

lri«o 

ROtlTaPR  1 1 1 
Rf TURN 


are  used  to  compute  the  values  of  RIN  and  ROUT  when  only  one  intersection 
occurred,  which  means  that  the  ray  originates  within  the  RPP.  Therefore, 
RIN  is  set  to  an  extremely  large  negative  value.  The  entering  surface 
number  is  set  to  zero,  the  value  of  ROUT  is  recorded,  and  the  leaving  sur¬ 
face  number  is  recorded.  Control  is  then  returned  to  the  calling  program. 

The  statements 


C9  OCTC«M|N£  If  ***  omtfNATCS  W  OH  MfSSCS 

c 

200  DO  220  J* 1  * 3 

IF(Xa<J>.LT,XS(2«J-l>)00T0  1  TO 

IFtX8(jU8T,XS(2*jn«OTO  lYO 

220  CONTINUE 
GOTO  180 
END 
C 

c 

comprise  a  loop  to  determine  if  the  origin  of  the  ray  is  within  the  RPP. 

If  not,  control  is  passed  out  of  the  loop  where  a  miss  is  recorded.  If 
the  ray  originates  within  the  RPP,  control  is  passed  to  record  the  intersect 
point  and  surface  numbers  affected. 
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Subroutine  BOX 


Subroutine  BOX  calculates  the  intersection  distances  (if  any)  of  a  ray 
in  space  and  a  box.  The  intersection  distances,  RIN  and  ROUT,  are  calculated 
by  solving  simultaneously  the  ray  equation  and  the  equations  defining  the 
sides  of  the  box. 

The  box  is  defined  by  a  vertex,  V,  and  three  mutually  perpendicular 
length  vectors.  These  three  vectors  represent  the  height,  width,  and  length 
of  the  box  as  shown  in  Figure  61. 


intersect  point  of  ray 

starting  point  of  ray 

direction  cosines  of 
ray 

vertex  of  box 

three  mutually  per¬ 
pendicular  length 
vectors  of  the  box 


RIN 

distance  to 
intersect 

entry 

ROUT 

distance  to 
intersect 

exit 

FIG.  61.  Box 
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The  statements 


DIMENSION  MASTER (10000) 

COMMON  ASTfRtlOOOO) 

COMMON/PAREM/XB<3>  »WB  <  3) »IR 

COMMON/OeOM/L0ASEtRIN*ROUT.LRI»LfiO»PlNr»IERRtOlST 

COMMON/'UNCOEM/NRPP.NTHlP»NSCAL*NBOot,NRMA*iLTRlP»t.SCAU»L«CGO* 
1  LDATA«LRlN*LR0T«LIO<t0C0A*ll5*l30'L800Y*NASC»KLOOP 


are  used  to  dimension  arrays  and  pass  information  into  and  out  of  this 
routine.  The  statement 


EQUIVALENCE  (M*STER»aSTERI 


is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 


The  statements 


C 

Ci  RETRIEVE  LOCATION  OF  BOX  VERTEX  A no  Hi  coordinates 

c 

CALL  UN2fL0C0A.lV.lMl) 

L0C»L0C0A*1 

C7  RETRIEVE  LOCATION  OF  box  M2  AND  M3  COORDINATES 

c 

CALL  UN2(L0C.IM2,IM3» 


are  used  to  retrieve  the  pointers  to  the  locations  in  the  ASTER  array  of 
the  box  vertex  and  triplet  coordinate  values. 

The  statements 

RIN—PINF 
ROUT  «PtNF 


are  used  to  initialize  the  variable  RIN  to  an  extremely  large  negative  value 
and  the  variable  ROUT  to  an  extremely  large  positive  value. 
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The  statement 

no  105  x*i*3 


Is  used  to  start  a  loop  which  will  compute  the  ray  intersection  with  the  three 
pairs  of  opposite  faces  of  the  box. 

The  statements 


11  11*2 
GOTO  u 


12 


ootA 


u 


13  11*3 


are  used  to  assign  a  value  to  the  variable  II  according  to  the  pass  number 
of  the  loop.  The  variable  II  is  used  later  in  the  loop  to  compute  the  face 
number  of  the  box. 

The  statements 


vo*o. 

*»<>• 


are  used  to  initialize  the  variables  A,  VP,  and  W  to  zero 


The  statements 


C 

Cl  COMPUTE  VECTOR  00T  products 

c 

00  15  U*lt3 
JV*IV* J 
J4*IMi*J 

vp*vp*  (aster  <  jv-h-xb<  jn  *aster  (ja-1  i 

**«**B<j)*aSTeR<Ja-1> 

a*a«aster<  j*-n**2 

15  CONTINUE 
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are  used  to  compute  the  vector  dot  products  required  for  Equations (8) and (9). 


S*  =  (V-XB) 

•Ht/ 

/  (WB  *H^) 

S1  =  S1  +  H 
V+H  V  i 

*  Hi/ 

/  (WB-H1) 

(8) 


(9) 


Thus 


VP 


W 


A 


(V-XB)  •  Ht  -  (VXBx)'Hix  +  (VXV'Hiy  +  (Vz"XBz)'Hiz 


WB  •  H  =  WB  •  H  +  WB  •  H  +  WB  •  H 

i  x  ix  y  iy  z  iz 


-  -  -  2-  2-  2 

H  •  H  =  H  +  H  +  H 
i  i  ix  iy  iz 


The  statemenc 

IF(W>30’20'«0 


is  used  to  test  the  value  of  WB*H^  and  branch  accordingly.  If  WB*H^  is 
zero,  the  ray  is  parallel  to  the  faces  in  question,  and  an  intersection  will 
not  occur. 

The  statements 

20  IFi-VP.CT.O.HJOTO  200 
IF  t-VP-A)  100*100*200 

are  used  to  test  whether  an  intersection  is  possible  with  any  other  face. 

If  (V-XB) *H^  is  positive,  an  intersection  with  the  box  is  not  possible,  and 
this  routine  is  exited  via  Statement  200. 
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The  statements 


c 

C*  COMPUTE  rout 

c 

30  CP»VP/* 


are_used  to  compute 
WB*Hi  is  negative. 


ROUTj  for  the  face  in  question  by  Equation (8) and  LO  if 
LO  will  have  the  following  values: 


LO  =  3  for  HI 
LO  =  1  for  H2 
LO  =  5  for  H3 


The  statement 


IF tCP.LE.O. >&OTO  260 


is  used  to  test  the  sign  of  ROUTi. 
located  on  the  proper  side  of  the 
exited  via  Statement  200. 


If  ROUT  is  negative,  the  box  is  not 
ray  initiation  point,  and  the  routine  is 


The  statements 


C 

CR  COMPUTE 
C 

CM* (VP** t /W 
11*1.0*1 
onto  60 


are  used  to  compute  RINj  for  the  faces  in  question  by  Equation (9) and  LI.  LI 
will  have  the  following  values : 

LI  =  4  for  HI 
LI  »  2  for  H2 
LI  3  6  for  H3 

Execution  transfers  to  Statement  60,  and  the  computed  values  of  ROUT  and  RIN 
are  compared  with  the  previously  computed  values. 
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C 

C ft  COMPUTE  ROUT 

C 

40  CP«(VP*A>/W 
L0-2-II 

IP <CR.LE*0.>GOTO  200 

CT  COMPUTE  RIM 

C 

CM.VP/w 

LI-LO-i 


are  used  to  compute  ROUTi  by  Equation(9)and  RIN^  by  Equation (8) if  WB-Hj 
is  positive.  If  ROUTi  is  negative  the  routine  is  executed  via  Statement  200. 
LO  and  LI  are  given  the  following  values: 


LO  =  4, 

LI 

=  3 

for 

HI 

LO  =  2, 

LI 

*  1 

for 

H2 

L0  =  6 , 

LI 

=  5 

for 

H3 

The  statements 


60  IF (ROUT *LE • CP > GOTO  80 
Rf)UT«CP 
l.R0»L0 

90  IF<RIM.GE'C">(I0T0  loo 
RIN»CM 
tRI-LI 


are  used  to  compare  the  computed  values  of  RIN  and  ROUT  with  the  previously 
assigned  values.  If  the  computed  value  of  ROUT  is  greater  than  the  previously 
assigned  value,  the  new  value  is  retained  and  LR0  is  updated  to  identify  the 
face  associated  with  ROUT.  Similarly,  the  computed  value  of  RIN  is  retained 
if  it  is  less  than  the  previously  assigned  value,  and  LRI  is  updated. 

The  statements 

100  IMJ-IM2 
IM2-IMU 
105  CONTINUE 
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are  used  to  increment  the  face  description  vectors  to  select  two  new  faces, 
and  the  computations  are  repeated  until  all  faces  have  been  examined. 


The  statements 

IFUtS<RIN-ROUT>  ,LE.ROUT«1.0t-6)OOTO  *00 
T*<R  N.LT, ROUT) RETURN 


are  used  to  compare  the  values  of  ROUT  and  RIN.  If  RIN  has  the  same  value 
as  ROUT,  the  routine  is  exited  via  Statement  200.  If  RIN  is  less  than  ROUT, 

the  execution  returns  to  the  calling  routine  with  RIN  and  ROUT  set  at  the 
computed  values. 

The  statements 


C 

200  RINbPInF 
f»0UT*-p  INF 
RETURN 


are  used  to  set  RIN  at  an  extremely  large  positive  value  and  ROUT  at  an 
extremely  large  negative  value  and  to  return  execution  to  the  calling  routine. 
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Subroutine  SPH 


The  subroutine  is  used  to  compute  the  intersection  of  a  ray  with  a  sphere 
as  depicted  in  the  following  figure: 


XB  starting  point  of  ray 

WB  direction  cosines  of  ray 

V  center  of  sphere 

R  radius  of  sphere 


RIN 

distance  to 
intersect 

entry 

ROUT 

distance  to 
intersect 

exit 

FIG.  62.  Sphere 


The  statements 


COMMON  ASTER  < l 0000 ' 

COMMON/PAREM/X8<3) i WB  ( 3 ) t  JR 

COHMON/GEOM/LBASE»RIN.ROUT.LRI»LRO»PlNr»IEM«DlST 

COMHON/UNcOeH/NRPP*NtRlP*NSCAL*NitOof  »NBHAX*I.TRIPtLSCAL*l.BC9D' 
1  LDATa  >LRIN*LR0T  »L I0*L0CDA 1 1 1$* I J0f LBODT *NaSc*KLOOR 


are  used  to  pass  information  Into  and  out  of  this  subroutine. 

The  statement 

C?  retrieve  LOCATION  OF  SPH  VERTEX  AND  RADIUS 

c 

CALL  UN2(L0CDAvITEHP*1E> 

is  used  to  retrieve  the  locations  at  which  the  sphere's  vertex  and  radius 
values  are  stored  in  the  ASTER  array. 

The  statement 


ROASTER ( 12) 

equates  the  retrieved  value  for  the  sphere's  radius  to  R. 
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e  i.dLdID6tlt€ 


I  TEMP. i temp,  i 

O*»*0 C i ) -ASTER ( I TEMP- 
dt.xb  -ASTER ( i tempi 
OZ»«al3»-ASTERIITEMP* 


11 

1» 


are  used  to  compute  the  coordinates  of  the  vector  DX  where 


DX 

=  XB 

-  V 

X 

X 

X 

DX 

=  XB 

*  v: 

y 

y 

y 

TJX 

=  ~X B„ 

-  T 

z 

% 

i 

The  statement 

B-DX'We ( 1 I *0Y»Wb I{| *0Z*H6 (31 


is  then  used  to  compute  the  dot  product  DX-WB,  which  is  used  in  Equations  (U)  and  (15) 


S 


-B  + 


b2-c 


where 


The  statement 

C"O*#0x*ov*ov*d**d*-b<mii 

is  used  to  compute  the  value  of  C  according  to  Equation  C  =  DX2-R2. 


(14) 


(15) 
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The  statement 

ois»e*s-c 


is  used  to  compute  the  value  B2-C  for  later  use  within  the  subroutine  when 
the  square  root  function  will  he  used- 


The  statements 


IF  (C.GT.O.IGOTO  10 

AIY  ORIGINATES  WITHIN  SPHERE 

«IN*-PINF 
ROUTeSORT IDISI-B 
RETURN 


are  used  to  test  if  the  origin  of  the  ray  is  inside  or  outside  of  the  sphere. 
If  C  is  negative  the  origin  is  within  the  sphere.  RIN  is  therefore  set  to  an 
extremely  large  negative  value,  ROUT  is  computed  and  control  is  returned  to 
the  calling  program.  If  the  origin  of  the  ray  is  external  to  the  sphere, 
control  is  transferred  to  Statement  10  in  the  subroutine. 


The  statements 


10  IFIOIS.OT.O.IQOTO  20 
RAY  MISSES  SPHERE 

C 

RIN-PINF 

ROUT—PINF 

return 


are  used  to  test  if  the  ray  intersects  the  sphere.  If  not,  RIN  is  set  to  an 
extremely  large  positive  value,  ROUT  is  set  to  an  extremely  large  negative 
value,  and  control  is  returned  to  the  calling  program.  If  the  ray  Intersects 
the  sphere, control  is  transferred  to  Statement  20  in  the  subroutine. 

The  statements 

C 

Ca  ray  intersects  sphere 

c 
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20  OISaSQflT (OIS) 
RtNa-B-DIS 
ROUT*«a*0IS 
RETURN 


are  used  to  compute  the  values  of  RIN  and  ROUT  for  a  ray  originating  outside 
the  sphere  and  intersecting  the  sphere.  When  RIN  and  ROUT  are  computed, 
control  is  returned  to  the  calling  program. 
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Subroutine  RCC 

This  subroutine  is  used  to  compute  the  intersections  of  a  ray  with  a 
right  circular  cylinder  as  depicted  in  the  following  figure: 


RIN 


WB 


XB 

WB 

V 

H 

R 


FIG.  63.  Right  Circular 


starting  point  of  ray 
direction  cosines  of  ray 
vertex  of  RCC 
height  vector  of  RCC 
radius  of  RCC 


Cylinder 


tre 


The  statements 
01  MENS  ION  V (31 »H<3) 

DIMENSION  MASTER  l  \ 0000 1 
COMMON  ASTER t 1 ooool 

COMHON/PAREM/XB<3>*«Bt3) »I"  _  _  tct 

cOMMQN/GEOm/LBASE  »RlN  »R0UT *LRl  tl.R0  tP  IMP  t IERR*0lST 

COMMON/UNCSER/NRPP.NTRlPtMSCAU*N8ODT.NRM*I.LTRlP.LSC*l.iURC0Di 
1  LOAT*«LRlNtLROT.L10.LOCOAtlL5tl3GtLBOOVtM**C»^l-OOP 

used  to  dimension  arrays  and  pass  information  into  and  out  of  this 


subroutine, 


The  statement 

EQUIVALENCE  t*STERtMASTERi 

is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 


The  statement 

RETRIEVE  LOCATION  OP  RCC  VERTEX  AND  MEIOHT  VECTOR  COORDINATES 
CALL  UN2 l LOCO A, IV* IM) 
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is  used  to  retrieve  from  the  ASTER  array  the  pointer  to  the  location  of  the 
coordinates  for  the  vertex  and  the  height  vector  of  the  right  circular 
cylinder. 


The  statement 


C 

C9  RETRIEVE  LOCATION  Of  RADIUS 
C 

IRRaMASTER  (LOCOAM  I 


is  used  to  retrieve  from  the  MASTER  array  the  location  of  the  radius  of  the 
right  circular  cylinder. 


The  statements 


C 

Cl  RETRIEVE  COORDINATES  Of  VERTEX  AND  WE I8HT  VECTOR 

H(l>aASTER(IH) 

H(2)«ASTER<IM*l) 

H(3>«ASTER<IH*2» 

V(l)«A$TEfl<IV» 

V<2>»A$TER<IV*J) 

V«3)*ASTER(IV*2) 


are  used  to  retrieve  and  fill  two  three-element  arrays  with  the  value  of  the 
RCC  height  vector  and  vertex  in  terms  of  the  x,  y,  and  z  components. 

The  statement 


8*  RETRIEVE  RADIUS 
C 

RaASTER(IRR) 


is  used  to  retrieve  the  value  of  the  radius  of  the  right  circular  cylinder. 
The  statements 


RlNa-PlNE 

ROUTapjNf 
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are  used  to  Initialize  R1N  to  an  extremely  large  negative  value  and  ROUT  to 
an  extremely  large  positive  value. 

The  statement 

C 

c«  compute  «  SQUARED 
C 

2 

is  used  to  compute  the  value  of  R  . 

The  statements 


L«O»0 
LRI»0 
TOP*0 • 
POT«0. 


are  used  to  initialize  the  variables  LRO,  LRI ,  TOP,  and  POT  to  zero 


The  statements 


Ca  compute  VECTOR  00T  PftnOUCTS 

c 

VPH“H ( i l • <  V ( 1 ) ( 1 1 I 
C 

$7  COMPUTE  COEfElCtCNT  Of  S  SQUARED 

C 

Of 


are  used  to  compute  the  dot  products  H*H,  H-(V-XB),  and  WB-H  respec- 
tively  and  to  compute  the  value  of  the  numerator  of  x  for  use  in  solving 
Equations  (22),  (27),  and(29).  Equation  (22)  is  the  equation  for  the  distances  to 
the  intersect  points  on  an  infinite  right  circular  cylinder.  Equations  (27) 
and  (29)  are  the  equations  for  the  distances  to  the  intersect  points  with  the 

planar  surfaces. 
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or 

- — 

TS2  -  2A'S  +  y1  =  0 

If 

A  =  A '/t  ,  p  =  ij'/t 

Then 

2 

s  -  ns  +  u  =  o 

Solving  for  S  gives 

S  -  A  +  yfJT, 


(22) 


(23) 


Thus,  possible  intersect  points  (RIB  and  ROUT)  for  an  infinite  right 
circular  cylinder  are: 


RIN  =  A  -  \l 

f*2-„ 

ROUT  =  A 

^A2-ji 

(24) 

(25) 


The  possible  intersect  points  (RIN  and  ROUT)  for  two  planar  surfaces  are: 
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(27) 


(29) 

for  the  V+H  plane 

RIN  =  S  and  ROUT  =  S  for  WB-H  >  0 
Y  VtH 

RIN  =  S  and  ROUT  =  ST,  for  WB'H  <  0 
V+H  V 

For  WB'H  -  0,  the  ray  is  parallel  to  the  two  planes ,  and  no  intersections 
with  the  planes  will  occur. 

The  statements 


=  H*(V-XB) 
V  WB-H 


for  the  V  plane  and 


H- (V-XB)  +  H-H 
5  V+H  ~  WB-H 


00  10  l ■ 1 • 3 

Tnp»Top*«B ( i  >  * (*a  1 1 > -v ( i  n 

pnTwP0T-»IX8(I)-V(I)  >»*Z 

10  CONTINUE 


constitute  a  loop  which  computes  the  values  of  WB-(XB-V)  and  (XB  V)2,  which 
will  be  used  later  in  the  subroutine  to  solve  Equation  (22)  for  S. 


The  statements 


anbd»*hh*top-wh*vph 

UM»(POT-RS0J*MH-tfPN«*2 


are  used  to  compute  the  value  of  the  numerator  of  V,  and  the  value  of  u’  for 
solving  Equation  (22) . 
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The  statement 

is  used  to  test  the  value  of  the  dot  product  WB*H  to  determine  if  the  ray 
is  parallel  to  the  two  planes  (WB’H  -  0). 

The  statements 


C 

C«  SOLVE  FOB  BIN  and  BOUT  OF  BLANC  INTERSECTIONS 
C 

AO  CP* VPH/WH 

cm* (VPm*HH)/WH 

LCP*1 

LCM*2 

GOTO  60 

$0  CP* ( VPH*HH) /HH 
CH*VPH/WH 

LC**1 

LCp*Z 


are  made  up  of  two  groups  of  Instructions  which  calculate  the  distance  from 
the  ray  origin  to  the  intersect  points  on  the  two  planes.  The  first  group 
calculates  the  distances  in  terms  of  a  negative  WB-H,  and  the  second  group 
calculates  the  distance  in  terms  of  a  positive  WB-H.  The  surface  numbers 
of  these  two  planes  are  also  stored  in  a  temporary  location  for  later  use  in 
the  subroutine. 


The  statement 


69  IH CP >  390*60*80 


is  used  to  determine  if  the  ray  is  moving  away  from  the  two  planes  of  the 
cylinder.  If  the  distance  to  the  intersect  point  of  the  ROUT  plane  is 
negative,  the  ray  misses  the  RCC  and  control  Is  passed  to  another  area  of 
the  subroutine  where  the  total  miss  condition  is  recorded. 
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The  statements 


70  Cp-plNP 
CM»«CP 

IF(VPH#OT#0#)OOTO  300 
IF<HM^VPM)300*90»90 


are  used  if  the  ray  is  parallel  to  the  two  planes  of  the  RCC.  Temporary 
locations  of  RIN  and  ROUT  for  the  two  plane  surfaces  are  first  set  to  a  miss 
condition.  Next,  a  test  is  made  to  determine  if  the  V  plane  is  above  the 
ray.  If  it  is,  an  exit  is  made  to  the  end  of  the  subroutine  where  a  total, 
miss  condition  is  recorded  before  return  to  the  calling  program.  If  the  V 
plane  is  not  above  the  ray,  another  test  is  performed  to  determine  if  the  ray 
is  above  the  V+H  plane.  If  it  is,  a  total  miss  condition  is  recorded  as 
before.  If  not,  control  is  transferred  to  determine  if  the  ray  intersects 
the  quadratic  surface. 

The  statement 

00  IFUBS(OEN)  .Gf  .i#0t-6)OOTO  90 

is  used  to  determine  if  the  absolute  value  of  t  of  Equation  (22)  is  less  than 
or  equal  to  a  very  small  value,  which  indicates  that  the  ray  is  parallel  to 
the  sides. 

The  statements 


Rl»-PINF 
»2*PINF 
GOTO  100 


are  used  to  set  temporary  subroutine  variables  for  RIN  and  ROUT  to  an  extremely 
large  negative  number  and  an  extremely  large  positive  number,  respectively,  if 
the  previous  test  determined  that  the  ray  was  parallel  to  the  H  vector.  Con¬ 
trol  is  then  transferred  around  the  calculations  for  intersections  with  the 
quadratic  surface. 

The  statements 
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10  R1*0. 

R2-0. 


initialize  two  temporary  subroutine  variables  to  zero. 


The  statements 


a*bda«a*bd/den 

UmU»UM/0EN 

OISC^ANeOA^Z-UMU 


are  used  to  compute  the  value  of  A  (A  -  A'/t),  p  (y  *  y'/t)and 
the  quantity  A^-y. 

The  statement 


IE  <0 1 Sc*LE ( o 1 1 GOTO  300 


is  used  to  determine  if  A--y  0,  which  would  mean  that  there  are  no  inter¬ 
sections  with  the  quadratic  surface. 

The  statement 

50"$QRT (DISC ) 


2 

is  used  to  ob tain  the  square  root  of  (  A  *"~y  )  >  0* 


The  statements 


C 

C«  solve  for  RIN  and  ROUT  OF  QUADRATIC  INTERSECTIONS 

R1*ANB0A«S0 

Ra"*M0OA*SO 


are  used  to  compute  the  distances  from  the  ray  origin  to  the  intersect 
points  on  an  infinite  cylinder  by  Equations  (24)  and  (25). 
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The  statement 

100  IFfCK.QT.RlJSOro  110 

is  used  to  determine  if  the  entrance  of  the  ray  into  the  RCC  is  on  one  of 
the  planes  or  on  the  quadratic  surface. 

The  statements 


LflI-3 
GOTO  120 


are  used  to  assign  RIN  a  value  and  to  assign  the  surface  number  of  the  entry 
point  for  the  entrance  of  the  ray  on  the  quadratic  surface. 


The  statements 


no 


are  used  yo  assign  RIN  a  value,  and  to  assign  the  surface  number  of  the  entry 
point  for  the  entrance  of  the  ray  into  one  of  the  planar  surfaces. 

The  statement 


120  IF<CP.LE*«2>G0T0  130 


is  used  to  determine  if  the  exit  of  the  ray  from  the  RCC  is  on  one  of  the 
planes  or  on  the  quadratic  surface. 

The  statements 


ROUTaRg 
L«0»3 
GOTO  200 
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are  used  to  assign  ROUT  a  value,  and  to  assign  the  surface  number  of  the  exit 

point  for  the  exit  of  the  ray  out  of  the  quadratic  surface-  A  branch  is  then 

made  around  the  exit  of  a  ray  from  a  planar  surface* 

The  statements 

130  RnuT*c* 

LHO^LC p 

are  used  to  assign  ROUT  a  value  and  to  assign  the  surface  number  of  the  exit 

point  for  the  exit  of  the  ray  out  of  the  quadratic  surface. 

The  statement 

200  U05  (ROUT-HINJ  *lC.ROUT*^oC-5>90TO  j00 


is  used  to  determine  if  the  distance  between  the  intersect  points  is  less  than 
or  equal  to  a  very  small  minimum  value,  such  as  an  intersect  taking  place  at  a 
corner.  If  the  distance  is  extremely  small, control  is  passed  to  the  end  of 
the  subroutine  where  a  miss  is  recorded* 

The  statement 


GOTO (210+210* 220  J fLRO 

is  used  to  transfer  program  control  depending  upon  the  surface  number  of  the 
exit  of  the  ray*  If  the  ray  exits  from  one  of  the  two  planar  surfaces,  con¬ 
trol  is  transferred  to  determine  if  the  intersection  with  the  planar  surface 
lies  within  the  circular  cross  section  of  the  cylinder.  If  the  ray  exits 
from  the  quadratic  surface,  control  is  transferred  to  determine  if  the  inter¬ 
section  with  the  quadratic  surface  lies  between  the  two  planar  surfaces. 

The  statements 


C 

Ci0  determine  if  rout  intersects  plane  g ThIn  cylinder  CRO$S*S£GTtON 

c 

210  F 1*DEN»HOUT**2»2,*4n0D*ROUT*UM 
IF (FI ) 250 *250 *300 
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are  used  to  determine  if  ROUT  from  a  planar  surface  lies  within  the  circular 
cross  section  of  the  cylinder  by  evaluating  Equation  (23)  for  ROUTES.  The 
result  must  be  less  than  or  equal  to  zero  for  a  valid  intersection. 

The  statements 


oil  ones  BOUT  InTCBSECT  OF  QUADRATIC  SURFACE  OCCUR  BCTKKn  ?LAN£S 

c 

220  F1»R0UT«*WH-VPH 

IF (F 1 1 300*250*230 


are  used  to  evaluate  and  test  Equation  {2^  for  ROUT— S  if  ROUT  is  from  the 
quadratic  surface.  If  the  value  of  the  expression  is  negative, the  inter¬ 
section  lies  below  the  bottom  planar  surface.  If  the  value  of  the  expression 
Is  zero,  ROUT  occurs  at  a  corner  and  control  is  transferred  to  determine  the 
locations  of  RIN.  If  the  expression  is  positive,  control  is  transferred  to 
determine  if  ROUT  is  below  the  top  planar  surface. 

The  statement 

230  IFtFl.9T.HH)  00T0  300 

is  used  to  determine  if  ROUT  is  above  the  top  planar  surface.  If  it  is, 
control  is  transferred  to  record  a  miss, 

The  statement 

250  SnTO(260»260'2T0) *LRI 


is  used  to  transfer  program  control  depending  upon  the  number  of  the  surface 
which  the  ray  enters.  If  the  ray  enters  one  of  the  two  planar  surfaces  con¬ 
trol  is  transferred  to  determine  if  the  intersection  with  the  planar  surface 
lies  within  the  circular  cross  section  of  the  cylinder.  If  the  ray  enters 
the  quadratic  surface,  control  is  transferred  to  determine  If  the  intersection 
with  the  quadratic  surface  lies  between  the  two  planar  surfaces. 
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The  statements 


C 

Cl 2  DETERMINE  IF  RlN  INTERSECTS  PLANE  WITHIN  CYLINDER  CROSS-SECTION 

C 

260  F1«0EN*RIN*«2-2,MH80*RIN*UM 
IF tFl >310*310*300 


are  used  to  determine  If  RIN  on  a  planar  surface  lies  within  the  circular 
cross  section  of  the  cylinder  by  evaluating  Equation  (23)  for  RIN=S.  The 
result  must  be  less  than  or  equal  to  zero  for  a  valid  intersection. 

The  statements 


C 

Cl  3  DOES  RIN  INTERSECT  OF  QUADRATIC  SURFACE  OCCUR  BETWEEN  PLANES 

C 

2T0  Fl"RIN*WH-VPH 

IF (FI >300*310*200 


are  used  to  evaluate  and  test  Equation  (27)  for  RIN=S  if  RIN  is  on  the 
quadratic  surface.  If  the  expression  is  negative,  the  intersection  lies 
below  the  bottom  planar  surface.  If  the  expression  is  zero,  RIN  occurs 
at  a  corner,  and  control  is  transferred  to  the  calling  program.  If  the 
expression  is  positive,  control  is  transferred  to  determine  if  RIN  is 
below  the  top  planar  surface. 

The  statement 


280  IF{F1,LE.HH)Q0TQ  310 


is  used  to  determine  if  RIN  is  above  the  top  planar  surface.  If  so,  control 
is  returned  to  the  calling  program. 

The  statements 


C 

Cl*  RAY  MISSES  BODY 
C 

300  RIN«PIisr 
R0UT»-p INF 
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LRO«q 

LRI*0 

310  RETURN 

eno 

C 

C 


are  used  to  record  a  miss  of  the  RCC.  RIN  is  set  to  an  extremely  large 
positive  value,  and  ROUT  is  set  to  an  extremely  large  negative  value. 
Also,  the  surface  entry  and  exit  codes  are  set  to  zero.  Return  is  then 
made  to  the  calling  program. 
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Subroutine  REC 


This  subroutine  is  used  to  compute  the  intersection  of  a  ray  with  a  right 
elliptic  cylinder  as  depicted  in  the  following  figure: 


a  fixed  point  on  the  ray 
direction  cosines  of  ray 
vertex  of  REC 
height  vector  of  ray 
semi-major  axis 
semi-minor  axis 


FIG.  64.  Right  Elliptic  Cylinder 


The  statements 

OTMENSION  V(3) 'H<3> .*(3) .0(3) 

COMMON  ASTER ( 1 0000  ) 
qOMMON/PaRem/XB ( 3> ««B  <  3) * IR 

COMMCN/6E0M/L8ASE.RINtR0UT.URItLR0»RlNFtICRRt0lST 
COMM0N/UNCQEM/NRPPtNTHlP«NSCAt.»N8OD'i’»NRMAX«lTRlPiLSCAL»l»RE00* 
1  LOaTa.uR1N»LROT.LIO.lOCOA»I15*13O*L0OOY.NaSc*XLOOR 


are  used  to  dimension  arrays  and  pass  information  into  and  out  of  this 
subroutine. 

The  statements 


C 

C ?  RETRIEVE  LOCATION  of  rec  vcxtex  and  MEIGTM  VECTOR  COORDINATES 

c 

CALL  UN2 (LOCO A*  I V» IH) 

LOC"LOCOAM 

RETRIEVE  LOCATION  OF  REC  COORDINATES  FOR  AXES 
C 

CALL  UN2 (LOC« !A( IB) 
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are  used  to  retrieve  from  the  MASTER  array  the  locations  at  which  the  right 
elliptic  cylinder's  vertex,  height  vector,  semi -major  axis,  and  semi -minor 
axis  coordinates  are  s  tored . 

The  statements 


c%  RETRIEVE  COORDINATES  OF  VERTEAf  HEJttHT  VECTOR*  SEMi-HAJOR  AXIS 
C  AND  SEMI-MINOR  AXIS 

C  V(]l “ASTER  ( I V  t 

V(2)"*5IER(  IV*1 1 
W(3)-4STEftUV*2J 

H(3>-ASTERUH*2) 

A ( 1 > -ASTER ( I A  > 

At2>»ASUR!U*l> 

At3)«ASTER(I»*2) 

8  tj )«ASTER(I0I 
B«2)*ASTER(I8*1) 

8(3»"*STERU0*2» 


are  used  to  retrieve  and  fill  four  three-element  arrays  with  the  x,  y,  and  z 
coordinates  of  the  REG  vertex,  height  vector,  semi-major  axis,  and  semi-minor 

axis . 


The  statements 


RIM—PINF 

ROUT »P IMF 

L«O»0 

LRI"0 


initialize  RIN  and  ROUT  to  a  large  negative  and  large  positive  value, 
respectively,  and  initialize  the  entering  surface  number  and  exit  surface 
number  variables  to  zero. 

The  statements 
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C 

C*  COMPUTE  DOT  PRODUCTS  OF  A. A  AND  B<B 

C 

AA>A(l)*Am*A(2)*A(2)  »AO)*AO) 


are  used  to  compute  the  dot  products  A* A  for  the  semi -major  axis  and  B'B 
for  the  semi-minor  axis. 


The  statements 


C 

CX  COMPUTE  (V-XB1  FOR  X»V*Z  COORDINATE* 
C 

V1*BI*V  tl)-XB(l) 

V2*B2“V ( 2) -X8  tg) 

V3*83"VO)-XBt3) 


are  used  to  compute  V  -  XB  ,  V  -  XB  ,  and  V  -  XB  ,  which  defines  the 

_ _ *  X  y  y  z  z 

otigio  of  the  ray,  WB ,  with  respect  to  the  vertex  of  the  REC. 

The  statements 


C 

ct,  TRANSFORM  XBIX.Y)  TO  THE  COORDINATES  OF  THE  REC 
C 

VPA»V1XB1*A  (n*V2XB2»Am*V3XB3*A(3> 

VP0«V1X81#B tll#V2XB2»Bi2>*V3*B3#8(3> 


are  used  to  compute  the  components  of  Vp  with  respect  to  A  and  B  for  sub¬ 
sequent  solutions  for  S. 


The  statements 


C7  TRANSFORM  MB ( X  »  T )  TO  THE  COORDINATES  OF  THE  REC 
C 

WBAbMB  m«AU)*WB(2>»A  (2)  *NB  ( 3 )  *A  (3) 
MBB"WBtl>*B<l>*Na(21*Bt2>*NB*3>*8l3( 


are  used  to  compute  the  components  of  WB  with  respect  to  A  and  B  for  sub¬ 
sequent  solutions  for  S. 
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The  statements 

W0AUBA«WBA*WBA 

W8Bw9B»W8e*WSB 

- 2  - 2 

are  used  to  compute  the  quantities  (WB'A)  and  (WB'B)  . 
The  statements 


AAAAMA*AA 

BBBB*BB*BB 

- 2  - 2 

are  used  to  compute  the  quantities  (A* A)  and  (B-B)  . 
The  statement 


AMBD"MB**VP4«9BB8*W9B*VP9***AA 

is  used  to  compute  the  coefficient,  X’,  of  2S  from  Equation  (35). 
is  the  general  form  of  an  elliptic  cylinder  along  the  H-axis. 


or 


2  2  -  2  2  2  2 
bx  +ay  =  a  b 


where  x""  and  y  are  in  the  REC  coordinate  system. 


Therefore, 


and 


2 

a 


=  A* A  and  b 


2 


B-B 


Equation  (31) 


(31) 


(32) 
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The  origin  of  the  ray  XB  and  the  direction  cosines  of  the  ray  WB  can  be 
transformed  into  the  coordinate  system  of  the  REC,  where  V  now  becomes  the 
origin,  the  x-axis  is  along  the  semi-major  axis,  the  y-axis  is  along  the 
semi-minor  axis,  and  the  z-axis  is  coincident  with  the  H  vector,  by  the  dot 
products 


VP  -  (V  -  XB)  *  A 
A 

VP_  -  (V  -  XB)  *  B 

n 

W  -  WB  *  A 
A 

W  =  WB  *  Z 

D 


The  intersection  of  the  transformed  ray  from  the  dot  products  is 


E  =  VP  +  S-W 


(33) 


which  on  substituting  into  Equation  (32)  yields 


j  _  _  2  2  _  —  2  2  2 

b  (VP.  +  W  •  S)  +  (VP„  +  W  •  S)  =  a  b 
A  A  B  o 

2  2 

Expanding  Equation  (34)  where  a  =  A  *  A  and  b  =  B  •  B  gives 


which  is  of  the  form 

tS2  -  2A'S  +  u*  =  0 

where 

A  *  A ' / t  and  p  -  p 1 fj 


(34) 


(35) 
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Therefore , 

S2  -  2XS  +  v  =  0 
Solving  for  S 
S  =  X  + 

Thus,  possible  intersect  points  (RIN  and  ROUT)  for  an  infinite  right 
elliptic  cylinder  are: 


(37) 

(38) 


For  \  -p  <_  0,  no  intersection  with  the  cylinder  is  possible.  Also, 

2  —  22  —  2-6  — 

(b  .*A  +  a  *WB  )  <_  10  implies  that  the  ray  is  parallel  to  the  H  vector,  and 

intersections  will  occur  only  with  the  planar  surfaces. 


The  possible  intersect  points  (RIN  and  ROUT)  for  two  planar  surfaces 

are: 


(39) 


for  the  V  plane,  and 


for  the  V+H  plane. 

RIN  =  Sv  and  ROUT  = 
RIN  =  and  ROUT 


for  WB*H  >  0. 
=  Sv  for  WB-H  <  0. 


(40) 
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For  WB*H  -  0  the  ray  is  parallel  to  the  two  planes,  and  no  intersections 
with  the  planes  will  occur. 

If  RIN  or  ROUT  Is  an  intersection  with  the  quadratic  surface, 
the  intersection  point  must  lie  between  the  two  planar  surfaces. 

Therefore , 


0  <  (s-wfl  -  vph)i(h*h) 


(41) 


where  S  is  RIN  or  ROUT. 

If  RIN  or  ROUT  is  an  intersection  with  a  planar  surface  the  intersection 
point  mus t  lie  within  the  elliptic  cross  section , 


Therefore , 


(42) 


where  S  yLs  RIN  or  ROUT. 
The  statement 


Um»BBBB*VPa*VPA*AAAA«VP8*VP8-AAAA*8«BB 

is  used  to  compute  the  value  of  u '  for  solving  Equation  (36)  . 
The  statement 

O£NaWBAWBA*BBB8*W0B*BB*AAAA 


is  used  to  compute  the  value  of  t  which  is  the  coefficient  of  S2  from 
Equation  (35)  . 

The  statement 


IF ( A8S (OEN) «LE. l • qE*6 ) 80T0  10 
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is  used  to  determine  if  the  absolute  value  of  t  of  Equation  (36)  is  less 
than  or  equal  to  a  very  small  value,  which  indicates  that  the  ray  is  parallel 
to  the  axis. 

The  statements 

AMBOAiAMBD/OCN 

unu«uh/oen 

DI3C«AMB0A*«2-UMU 


are  used  to  compute  the  value  of  X  where  X  =X?/t  and  p  where  p  =  p'/t,  and 
to  compute  the  quantity  X^-p. 

The  statement 

I*<DlSc*LEtO*)GOTO  300 

2 

is  used  to  determine  if  the  quantity  X  -p  <_  0f  which  would  mean  that  no 
intersection  with  the  quadratic  surface  is  possible. 

The  statements 


8*  compute  the  intersect  points  on  the  ouao*aTIC  surface 

c 

S0*SQRT (DISC) 

«i*A*eoA-so 
P2«4MB0A«S0 
GOTO  20 


2 

are  used  to  compute  the  square  root  of  the  (A  -p)  0  and  the  distances  from 

the  ray  origin  to  the  intersect  points  on  an  infinite  right  elliptic  cylinder 
by  Equations  (37)  and  (38). 

The  statements 


10  ri»-pinf 

Pj.P I NF 
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are  used  to  set  temporary  subroutine  variables  for  RIN  and  ROUT  to  an 
extremely  laTge  negative  number  and  an  extremely  large  positive  number, 
respectively,  if  it  was  previously  determined  that  the  ray  was  parallel 
to  the  H  vector. 

The  statements 


20 


HH«H  t  J } *M ( | ) *H ( £ ) *M ( 

i ) *Nti 1 .W9(2)*H(2J *«B (j) «H( 

VPM»ViSei*M(l)*V2Jt92«MTZ»*V3Xej«M 


3) 

<3> 


are  used  to  compute  the  dot  products  H*H,  WB-H,  and  (V-XB)-H  for  use  in 
solving  for  the  intersect  distances  to  the  planar  surface. 

The  statement 

C 

CO  DETERMINE  if  RAY  PARALLEL  to  PLANAR  SURFACES 

c 

IFHHI40.T0.30 

is  used  to  test  the  results  of  the  dot  product  WB’H  to  determine  the  direction 
o£  _the  ray  with  respect  to  the  H  vector  (WB*H  <  0  for  a  downward  direction; 
WE*H  >  0  for  an  upward  direction;  WB-H  =  0  for  perpendicular). 

The  statement 

40  IFtVPH.OE.o.iSOTO  300 


is  ^ised  to  determine  if  the  ray  (moving  in  the  opposite  direction  with  respect 
to  H)  will  intersect  the  surface  containing  V.  A  positive  result  of  the  test 
would  result  in  a  negative  distance.  Therefore,  control  is  passed  to  another 
area  of  the  subroutine  where  the  total  miss  condition  is  recorded.  A  negative 
result  of  the  test  would  result  in  a  positive  distance,  which  means  the  ray 
intersects  the  surface  plane  containing  V. 

The  statements 

C_ 

cio  compute  the  intersect  points  on  the  planar  surfaces 
c 

CP-VPH/MH 
CM* ( VPH*HH ) /MH 
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LCP-l 
LCM-2 
GOTO  100 


are  used  to  store  the  surface  intersect  numbers  of  RIN  and  ROUT  and  to  com¬ 
pute  the  distance  from  the  ray  origin  to  the  intersect  points  on  the  two 
planes  for  a  ray  moving  in  an  opposite  direction  with  respect  to  the  vector 
H.  The  program  then  branches  to  determine  if  the  RIN  and  ROUT  intersect 
points  first  occur  at  a  planar  surface  or  at  the  quadratic  surface. 

The  statements 


VPHHH.VPN.HH 

tr (VPMHM.LE.O. >Q0TO  loo 


are  used  to  compute  the  quantity  H-(V-XB)  +  H-H  and  then  to  determine  if  the 
ray  will  intersect  the  upper  planar  surface  of  the  R£C-  A  negative  or  zero 
value  of  the  IF  statement  would  result  in  a  negative  distance.  Therefore, 
control  is  passed  to  the  end  of  the  subroutine  where  the  total  miss  condition 
is  recorded.  A  positive  value  in  the  test  would  result  in  a  positive  distance 
which  means  the  ray  intersects  the  upper  planar  surface. 

The  statements 


CP"VPMHH/*H 

CM»VPh/Wh 

LC«*1 
UCP-2 
GOTO  10 a 


are  used  to  compute  the  distance  to  the  planar  intersect  points  for  a  ray 
moving  in  an  upward  direction  with  respect  to  the  vector  H .  The  surface 
numbers  of  the  Intersected  planes  are  also  stored  for  later  use  before 
branching  to  determine  if  the  RIN  or  ROUT  Intersect  points  occur  at  a 
planar  surface  or  at  the  quadratic  surface. 
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The  statements 


TO  CPaPlNF 
CHv-CP 


are  used  to  set  the  ray  entry  distance  to  an  extremely  large  negative  value 
and  the  exit  distance  to  an  extremely  large  positive  value,  if  the  ray  is 
parallel  to  the  planar  surfaces  of  the  REC. 

The  statement 

100  IP  (CM, AT  •<*!  )00T0  no 


is  used  to  determine  if  the  entry  point  of  the  ray  first  occurs  at  a  planar 
surface  or  on  the  quadratic  surface. 

The  statements 


C 

Cl  1  BIN  FOR  THE  QUAORaTIC  surface 

c 

«IN»RI 
LRI-3 
GOTO  120 


are  used  to  assign  RIN  a  value  and  to  assign  the  surface  number  of  the  entry 
point  when  contact  first  occurs  with  the  quadratic  surface. 

The  statements 


C „ 

Cl  2  RIN  FOR  A  PLANAR  SURFACE 
C 

110  RIN«CM 
LRI-LCN 


are  used  to  assign  RIN  a  value  and  to  assign  the  surface  number  of  the  entry 
point  when  contact  first  occurs  with  a  planar  surface. 
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The  statement 

12b  ir<cP.t.e»»2>®oTo  iso 

is  used  to  determine  if  the  exit  point  of  the  ray  first  occurs  at  a  planar 
surface  or  on  the  quadratic  surface. 

The  statements 


C?3  ROUT  FOR  Tm£  OUAORATIC  SURFACE 
C 

ROUT«R2 
LR0»3 
OOTO  200 


are  used  to  assign  ROUT  a  value  and  to  assign  the  surface  number  of  the 
exit  point  for  the  exit  of  the  ray  from  the  quadratic  surface.  A  branch 
is  then  made  around  the  exit  of  a  ray  from  a  planar  surface. 

The  statements 


CiA  ROUT  FOR  A  PLANAR  SURFACE 
C 

130  ROUT«CP 

lro«lcp 


are  used  to  assign  ROUT  a  value  and  to  assign  the  surface  number  of  the 
exit  point  for  the  exit  of  the  ray  from  the  quadratic  surface. 

The  statement 

200  !F(ABS<ROUT-RINI «lC.ROUT*i,oE-9>80TO  3oo 


is  used  to  determine  if  the  distance  between  the  intersect  points  is  less 
than  or  equal  to  a  very  small  minimum  value,  such  as  an  intersect  taking 
place  at  a  corner.  If  the  distance  is  extremely  small,  control  is  passed 
to  the  end  of  the  subroutine  where  a  miss  is  recorded. 
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The  statement 


GOTO  (210»21o»22oJ  ,Lf»0 


ilTy  exi?"cnc^LPrif“eC°S"iu:Pfndln8  UP°?  the  S“rface  "U"ber 

control  is  transferred  rr  rW  / ■  ‘  .  c  fr0m  0ne  of  the  two  planar  surfaces, 

face  lies  within  the  ellinM-  1?  th6  intersectioa  with  the  planar  sur- 

exits  fro.  ““  “Li  'h%Cyll;der',  If  tha 

intersection  with  the  ouadrar^  ?  ,  is  transferred  to  determine  if  the 

n  with  the  quadratic  surface  lies  between  the  two  planar  surfaces. 

The  statements 


310 


CHOSS*SecTl0NROUT  0F  PLANAR  SURFACE  OCCURS  HI  THIN  ELLIPTIC 
P1"DEN*R0UT**2«j , •4M0o*«OUT*Um 

lrfPp2SO*250*3OO 


cr„%rfac“„'“frSrill"der  bv“  SUrfaCC  UaS  the  elliptic 

The  statements 


C. 

c,6  determine  if  rout  of  ouadratic  occurs  between  planar  surfaces 

Z20  F 1 »ROUT*WH* VFH 

IF  (fp  300*250*230 


are  used  to  evaluate  and  test  Equation  (41)  for  ROUT=S  if  rout  •  c 
quadratic  surface.  If  the  expression  FI  it  11  ?  S  *f  R0UT  1S  from  the 

below  the  bottom  planar  surface.  If  FI  is  zer T  ROUT  IT  lntersectlon  Ues 
and  control  is  transferred  to  H**t*™*  f  ’  R°UT  occurs  at  a  corner, 

tive,  ROUT  is  above  thTbottl  wn!  IT  of  RIN'  ^  »  is  Posi- 

to  determine  if  ROUT  is  below  the  top  pla^iu^ne?11"01  ^  transferred 
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The  statement 

230  IF ) FI ■ QT *HM) GOTO  300 

is  used  to  determine  if  ROUT  is  above  the  top  planar  surface.  If  so,  control 
is  transferred  to  record  a  miss. 

The  statement 

250  Art TO (260*260* 27 0> 


is  used  to  transfer  program  control  depending  upon  the  surface  number  of 
the  entrance  of  the  ray.  If  the  ray  enters  one  of  the  two  planar  surfaces, 
control  is  transferred  to  determine  if  the  intersection  with  the  planar 
surface  lies  within  the  circular  cross-section  of  the  cylinders.  If  the 
ray  enters  the  quadratic  surface,  control  is  transferred  to  determine  if  the 
intersection  with  the  quadratic  surface  lies  between  the  two  planar  surfaces. 


The  statements 


Cf7  DETERMINE  IF  RIN  of  PLANE  wITmIN  ELLIPTIC  CROSS  SECTION 

c 

260  FI»0EN*«IN**2-2.*4M8D«R1N*UM 
IFIFl) 310*110*300 


used  to  determine  if  RIN  on  a  planar  surface  lies  within  the  elliptic 
cross  section  of  the  cylinder  by  evaluating  Equation  (42)  for  RIN=S,  The 
result  must  be  less  than  or  equal  to  aero  for  a  valid  intersection. 


The  statements 


CIS  DETERMINE  if  RIn  OF  ouaoratic  surface  between  planar  surfaces 

c 

270  F1"RIN*RH-VPM 

IF<F1>  300*310*260 


are  used  to  evaluate  and  test  Equation  (41)  for  RIN— S  if  RIN  is  on  the 
quadratic  surface.  If  the  expression  is  negative,  the  intersection  lies 
below  the  bottom  planar  surface.  If  the  expression  is  zero,  RIN  occurs  at 
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a  corner,  and  control  is  transfen-ed  to  the  calling  program.  If  the 
expression  is  positive,  control  is  transferred  to  determine  if  RIN  is 
below  the  top  planar  surface. 

The  statement 

280  IP<Fl.CE.HM)00T0  310 


is  used  to  determine  if  RIN  is  above  the  top  planar  surface.  If  it  is, 
control  is  returned  to  the  calling  program. 

The  statements 


C. 

Cl 9  B/»Y  MISSES  BOOY 

c 

300  «IN«PInP 
R0UT«-PINr 
L«I«0 
|.PO«o 

310  PCTUPN 
END 


are  used  to  record  a  miss  of  the  REC.  RIN  is  set  to  an  extremely  large 
positive  value,  ROUT  is  set  to  an  extremely  large  negative  value,  and 
the  surface  entry  and  exit  numbers  are  set  to  zero.  Return  is  then  made 
to  the  calling  program. 
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Subroutine  TRC 


This  subroutine  is  used  to  compute  the  intersection  of  a  ray  with  a  right 
truncated  cone  as  depicted  in  the  following  figure: 


vertex  of  the  TRC 
height  vector  of  the  TRC 
radius  at  V+H 
radius  at  V 

a  fixed  point  on  the  ray 
direction  cosines  of  the  ray 
distance  to  entry  intersect 
distance  to  exit  intersect 


FIG.  65,  Right  Truncated  Cone 


The  statements 


DIMENSION  v ( 3*  *h ( 3 1 
DIMENSION  MASTER  1 1  000  r>l 
COMMON  aSTE*<IOOO0> 

COM«ON/PaB£M/X0(3) *IR 

COMMON/G£OM/LeASetBIN*flOUT»LBlfi.RQ^lNr»IHRtOlST 
COMMON/UNCOEM/NRPPiNTRlPfNSCAt*N0ODT»NRMAXiLTBIP»LSCAL*LREfiDi 
1  LDATAtLRINiLROT*LIOtLOCOl»IjS>l>0*LBOOYfNASciKLoO^ 


are  used  to  dimension  arrays  and  to  pass  information  into  and  out  of  this 
subroutine . 

The  statement 

EQUIVALENCE (MASTERtASTCRJ 

is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 
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The  statements 


C 

Cl  RETRIEVE  LOCATION  OF  TRC  VERTEX  4N0  MCI8HT  VECTOR  COORDINATES 
C 

CALL  UN2ILOCDA.IV, IN) 

LOC*LOCOA*1 

C 

C»  RETRIEVE  LOCATION  OF  TRC  RADII  FOR  LOWER  BASE  AND  UPPER  BASE 

C 

CALL  UN2 { LOC 1 1 RB  • I RTQP ) 


are  used  to  retrieve  the  locations  at  which  the  TRC's  vertex,  height  vector, 
lower  base  radius,  and  upper  base  radius  values  are  stored  in  the  ASTER 
array . 

The  statements 


C 

C3  RETRIEVE  COORDINATES  OF  VERTEX  AND  HciBHT  VECTOR 

V(1J»ASTER(IV| 

V(2)*A$TERUV«it 
V ( j) "ASTER  1 IV*2t 
Ntl) WASTER (IHt 
H (?) “ASTER ( IN* j ) 
h<3>«ASTER(IH*2) 


are  used  to  retrieve  the  x,  y,  z  coordinates  of  the  vertex  and  height  vector 
and  store  them  into  two  three-element  arrays,  respectively. 

The  statements 


C 

c*  retrieve  radii  of  lower  and  upper  bases 

c 

RB-ASTERtlRB) 

RTbaSTER  URTOP) 


are  used  to  retrieve  the  values  of  the  radii  of  the  lower  and  upper  bases, 
respectively . 


368 


TN  4565-3-71  Vol  II 


The  statements 

RTN«-PINF 

ROUT-PlNF 


are  used  to  initialize  the  variable  RIN  to  an  extremely  large  negative  value 
and  the  variable  ROUT  to  an  extremely  large  positive  value. 

The  statements 

LRO»o 

LRI*0 


are  used  to  initialize  the  entering  surface  number  variable  and  the  exit 
surface  number  variable  to  zero. 


The  statements 


intsec*o 

INTR1«o 

INTRZ-q 


are  used  to  initialize  the  variables  INTSEC,  INTR1 ,  and  INTR2  to  zero. 


The  statements 

C 

c%  c (impute  coordinates  or  (V-XBJ 

c 

VI XB1-V ( X  » -XB  C i > 

V2XB2"Vt2>-XB<2> 

VjXflj^v ( J ) — xa  f  3  > 

are  used  to  compute  V  -XB  ,  V  -XB  ,  and  V  — XB  . 

x  x  y  y  z  z 


The  statements 


C 

c*  compute  DOT  PROOUCTS 

c 

PVPV>V1XB1«V1XB1*V2XB2»V2XBZ*V3XB3»V3XB3 
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v M*Vi XB 1 *WB ( 1 i * VZX82*M0 « 2 > *W3lB3*WB  tjl 

VPH>ViX0l*H ( 1 1 *V2XB?*H (2> ♦V3XB3«H I3  > 
HMBH < 1 t *H( 1 1 *H (g* *M <2) I3) *H (3I 


are  used  to  compute  the  dot  products  (V-XB) • (V-XB) ,  (V-XB)‘WB,  WB-H,  (V-XB)-H, 

and  H'H,  respectively,  which  in  turn  are  used  in  solving  the  quadratic 
Equation  (49). 

The  statement 

RTRB-RT-R8 


is  used  to  compute  the  difference  Between  the  radius  of  the  upper  base  and  the 
radius  of  the  lower  base  (R^-Rg)  for  use  in  solving  quadratic  Equation  (49). 

The  statement 
C. 

Ct  compute  C2  quantity  of  quadratic  equation 
RBRTVP*RB-VPH*RTR0/HH 

is  used  to  compute  the  C  and  C  portion  of  the  constant  term  from 
quadratic  Equation  (49) . 

The  statement 

VPHHHavPH*HH 


is  used  to  compute^  the  value  of  (V-XB) *H  +  H'H  for  solving  RIN  or  ROUT  with 
planar  surface  V+H. 


The  statements 


UMbhh*  <PVPV-«bRTVP**2(-VPh*vPh 
AMBO-HM* VPW-VM* I VPH*RTRB*RBHT VP  t 
0ENpMH-PH**2* ( I , *RTRBa*2/MH) 
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are  used  to  compute  the  values  of  the  constant  term  p',  the  coefficient  ot  Zti  or 
X',  and  the  coefficient  of  S2  or  t  for  solving  quadratic  Equation  (49), 


where 


(49  ) 


Letting  r,  X',  and  p  be  the  coefficient  of  S  ,  2S ,  and  the  constant  term, 
respectively.  Equation  (49)  tak.es  the  form 


tS  -  2X'S  +  p'  =  0 


If 


then 


X  =  X'/t  and  u  =  u'/r 


S'  -  2XS  +  P  =  0 


Therefore,  the  possible  intersect  points  (RIN  and  ROUT)  for  the  intersection 
of  a  ray  with  the  right  truncated  cone  are. 
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For  X  -g  _<  0  no  intersection  with  the  cone  is  possible. 
The  statement 

C 

C«  TEST  FOR  RAY  PARALLEL  TO  EITHER  SIDE  OF  COHf 
IM  A8S  <DEN )  .0T»1  .  OE-6)  GOTO  AO 


(51) 


(52) 


is  used  to  determine  if  the  ray  is  parallel  to  either  side  of  the  cone.uhich 
means  that  r=0.  If  not,  control  is  passed  to  another  section  of  the  sub¬ 
routine  where  the  roots  of  the  quadratic  are  computed. 

The  statement 


IFiRTRg.EQ.OtlOOTO  200 


1?  tStt  t0/tteTmine  if  the  radil  the  upper  and  lower  bases  are  equal  such 
that  the  right  truncated  cone  is  actually  a  right  circular  cylinder.  If  this 

s  the  case,  the  ray  can  intersect  only  the  upper  and  lower  planes  of  the 
body  since  it  was  previously  determined  that  the  ray  is  parallel  to  one  of 
the  sides  of  the  body.  Control  is  transferred  to  the  section  of  the  sub¬ 
routine  that  computes  the  intersection  with  the  two  planes. 


The  statement 


CO  COMPUTE  INTERSECT  *ITn  QUADRATIC  SURFACE  FOR  RAY  PARALL|L  TO  SI0E 
R2*UM/ (2«*AHBD) 


is  used  to  solve  quadratic  Equation  (49)  when  t,  the  coefficient  of  S2,  is 
wUh  quadrat?;  surface?8"1'8  ^  °n*  P°SSlble  intersect  point  of  the  ray 
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The  statement 

F X"R2*WH«VPH 


is  used  to  compute  the  quantity  S (WB-H)-(V-XB) -H,  where  S  is  the  value  com¬ 
puted  in  the  previous  step  for  the  intersect  point  with  the  quadratic  surface 
For  this  intersect  to  be  valid,  that  is,  to  intersect  the  real  part  of _the 
cone,  the  intersect  point  must  be  on  the  cone's  surface  between  vertex  V 
and  height  vector  H  such  that 


0  <  (XB-V) +  WB-H-S  1  H-H 


where  S  is  the  intersect  point  on  the  quadratic  surface. 


The  statements 


CIO  TEST  IF  INTERSECT  BETWEEN  PLANAR  SURFACES 
C 

IF (FI *lT •  0  » ) GOTO  200 
IF (F i *QT »HM) GOTO  200 


(53) 


are  used  to  determine  if  the  intersect  point  on  the  quadratic  surface  satis 
fies  Equation  (53);  that  is,  to  determine  if  the  intersect  point  lies  between 
the  two  planar  surfaces. 

The  statement 


INTSEC«INTSeC*l 


is  used  to  add  one  to  the  variable  INTSEC,  which  is  used  later  in  the  subroutine 
to  determine  if  all  possible  intersects  have  been  made. 
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The  statements 


ir (WM.UE«0*)OOTO  10 
\f <RTR8>20»20«30 
10  IF (RTRgl30.30.20 


are  use|  to  determine  the  direction  of  the  ray  with  respect  to  height 
vector  H  and  to  determine  the  direction  of  the  point  of  the  cone.  8This 
xs  done  to  determine  if  the  intersect  point  on  the  quadratic  surface  is  an 
entry  point  or  an  exit  point. 


The  statements 


C_ 

cii  assign  surface  exit  number  and  rout  for  quadratic  surface 

20  LROO 
ROUT*Rj 
GOTO  230 


dlterm?li%as  8n  ^  ™terSeCt  Point  on  the  quadratic  surface  previously 
?n  the  af  IV  palallel  t0  elther  side  of  cone)  to  ROUT,  since  the  ray  is 
fromhtheireCii0^-°f  the  P°lnt  °f  the  Cone*  71,6  surface  number  for  an  exit 

fnotheJ  secMnn  f  V  t  *  ^  aSSlgned*  Control  is  then  transferred  to 
another  section  of  the  subroutine  to  compute  RIN  with  the  larger  planar 
surface  on  the  cone.  *  H 


The  statements 


Cl2  ASSIGN  SURFACE  entry  number  ano  rin  for  quadratic  surface 

30  LfllO 
«!N*R2 

INTSEC«INTSCC*1 
GOTO  210 


are  used  to  assign  the  intersect  point  on  the  quadratic  surface  previously 
determined  (ray  parallel  to  either  side  of  cone)  to  RIN,  since  the  ray  is  in 
the  opposite  direction  of  the  point  of  the  cone.  The  surface  numbed  foJa^ 
ntrance  into  the  quadratic  surface  is  also  assigned.  Control  is  trans- 
erre  to  another  section  of  the  subroutine  to  compute  ROUT  with  the  larger 
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planar  surface  on  the  cone.  The  variable  INTSEC  is  also  advanced  by  a  count 
of  one* 

The  statements 


c 

40  AM0DMAHSD/DEN 

UMU*UM/DEN 

DlSt*AM0DA*«2-UHU 


2 

are  used  to  compute  the  values  of  A  and  p  •  The  quantity  A  ~~\i  is  computed 
for  solving  Equations  (51)  and  (52)* 

The  statement 

IF (DISC) 350*200*30 


2 

is  used  to  determine  the  sign  of  A  -p ,  the  quantity  under  the  radical  of 
Equations  (5 1 )  and  (52).  If  negative,  no  intersection  with  the  cone  is 
possible,  and  control  is  transferred  to  another  section  of  the  subroutine 
to  record  a  total  miss.  If  zero,  control  is  transferred  to  the  section  of 
the  subroutine  to  compute  possible  intersects  with  the  planar  surfaces. 

If  positive,  intersections  with  the  quadratic  surface  occurs,  and  control 
is  transferred  to  compute  those  intersections. 

The  statements 


El  3  SOLVE  FOR  VALUES  OF 


SO  S0»SQRT (DISC) 
R1MMB0A-S0 
R2«A*BDA*SD 


quadratic  equation 


are  used  to  compute  the  quantity  and  to  compute  possible  values  of 

RIN  and  ROUT  with  the  quadratic  surface  from  Equations  (51)  and  (52). 

The  statement 

f 1«B2»WM-VPM 
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is  used  to  compute  the  quantity  R2 (WB • H) - < V-XR) • H,  where  R2  is  one  of  the 
possible  intersects  just  computed  for  the  quadratic  surface. 


The  statements 


Cl*  TEST  TOB  intersect  between  plana*  surface* 

c 

IF(ri,LT.O.|OOTO  60 
ir<M*L£>HH)lNTR2aINTR{«) 


are  used  to  determine  if  Equation(53)  is  satisfied;  that  is,  if  the  R2  inter¬ 
sect  from  Equation (52)  for  the  quadratic  surface  lies  on  the  cone's  surface 
between  the  two  planar  surfaces.  If  the  equation  is  satisfied,  the  variable 

INTR2  is  advanced  by  a  count  of  one  to  indicate  that  a  valid  intersect  for  R2 
has  been  fotmd. 

The  statement 

60  ri»ai*wH*vPH 


is  used  to  compute  the  quantity  RlfWB-H)-(V-XB) -H,  where  R1  is  one  of  the 
possible  intersects  just  computed  for  the  quadratic  surface. 


The  statements 


IP'PI»LT»0tf00T0  70 
If  IFl.LE.MH> GOTO  80 


are  used  to  determine  if  Equation (53)  is  satisfied;  that  is,  if  the  R1  inter¬ 
sect  from  Equation  (51)  for  the  quadratic  surface  lies  on  the  cone’s  surface 
between  the  two  planar  surfaces. 

The  statement 


TO  IF(INTR2.LTtl»OOTO  200 


is  executed  if  R1  is  above  or  below  the  TRC.  It  is  used  to  determine  if  R2 
was  a  valid  intersect  on  the  quadratic  surface  of  the  TRC  by  testing  the 
count  in  the  variable  INTR2 .  If  R2  was  not  valid,  control  is  transferred 
to  determine  the  intersections  with  the  planar  surfaces. 
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The  statements 


RftUT«R2 

RIN«R2 

LR0»3 

LRI-3 

INTSEC*1NT«CM 
flOTO  200 


are  used  to  set  both  RIN  and  ROUT  equal  to  R2  since  R2  was  a  valid  intersect, 
but  R1  was  not, and  the  direction  of  the  ray  has  not  yet  been  determined. 

The  entry  and  exit  surface  numbers  for  a  quadratic  surface  are  assigned  for 
the  same  reason.  The  variable  INTSEC  is  also  advanced  by  a  count  of  one  to 
record  that  thus  far  one  valid  intersection  has  been  found.  Control  is  then 
transferred  to  determine  the  intersections  with  the  planar  surfaces. 

The  statement 

90  INTRlMNTRiM 

is  executed  if  R1  is  a  valid  intersect  on  the  quadratic  surface  of  the  TRC. 

It  is  used  to  indicate  that  a  valid  intersect  for  R1  has  been  found. 

The  statement 

T9UNTH2.GE.1)00T0  90 

is  used  to  determine  if  R2  was  also  a  valid  intersect  on  the  quadratic  surface 
by  testing  the  variable  INTR2. 

The  statements 


R0UT*Rl 

RIN«Rl 

LH0»3 

L«I»3 

intsec-intseoi 

GOTO  200 
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Set  ^  *£[  3nd  S°UT  eqUal  tD  R1  SlnCe  R1  was  determined  to  be 
a  valid  Intersect  but  R2  was  not  and  the  direction  of  the  ray  has  not  vet 

been  determined.  The  entry  and  exit  surface  numbers  for  a  quadratic  surface 

countSofgone  t **  ^  “T”*  The  variable  INTSEC  is  advanced  by  the 

r  „  .“  .t0  ^eCord,  tha*  thus  far  on*  valid  intersect  has  been  found. 

plan  a  resurfaces .  tran3ferred  C°  det—-e  the  intersections  with  the 
The  statement 


<10  !F(S1-B21  100*350fll0 


is  used  to  determine  RIN  and  ROUT  from  R1  and  R2 
intersections  on  the  quadratic  surface. 


when  R1  and  R2  are  both  valid 


The  statements 


e_ 

Cl  5  COMPUTE  RIN  AND  ROUT  FOR  QUADRATIC  SURFACE 
C 

100  RIN»fil 
rout»r2 

Lfi0«3 
URI-3 
GOTO  3oo 
110  RINbRz 
ROUT ■Rj 
LRO^j 
LRI-3 
OOTO  3o0 


which  ™l  fJf’  R1“  aod  R0UT  fro"  values  uf  R1  and  R2  depending  „p„„ 
which  value  of  R1  or  R2  was  tha  larger  as  determined  by  the  previous  LT 
The  entry  and  emit  surface  variables  are  also  assigned  values  for  the 

ofathe  TRCS“  “  Sl”Ce  “1N  “d  R0UI  b0th  °CCUr  on  th'  gratia  surface 


The  statement 


C 

ZOO  IF (MH) 210 1 350  *250 
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is  used  to  test  the  results  of  the  dot  product  WB-H  to  determine  the  direction 
of  the  ray  with  respect  to  the  H  vector  (WB*ff  <  0  for  a  downward  direction; 
WB-H  >  0  for  an  upward  direction;  WB-H  =  0  for  perpendicular).  This  statement 
begins  the  sections  for  computing  the  intersects  with  the  planar  surfaces. 

The  statement 

210  1F<VPH,OE»O.M*OTO  380 


is  used  to  determine  if  the  ray  (moving  in  the  opposite  direction  with  respect 
to  H)  will  intersect  the  surface  plane  containing  V.  A  positive  result  of  the 
test  would  indicate  a  negative  distance.  Therefore,  control  is  passed  to 
another  area  of  the  subroutine  where  the  total  miss  condition  is  recorded. 

A  negative  result  would  mean  a  positive  distance;  therefore  the  ray  inter¬ 
sects  the  surface  plane  containing  V. 

The  statement 

CP«VPH/MM 


is  used  to  compute  the  intersect  of  the  ray  with  the  plane  surface  containing  V. 

The  statements 

ri«CP*CP”2t*CP*VPrf*PVPV-RB«HB 
IF tFl ) GOTO  j20 


are  used  to  evaluate  Equation  (57)  for  S=R0UT  to  determine  if  the  intersect  with 
the  plane  surface  containing  V  is  within  the  cross-section  of  the  base. 


S2  -  2S  [WB-(V-XB)]  +  (V-XB)2 


(57) 


If  Equation  (57)  is  satisfied,  a  valid  intersect  occurs.  If  the  equation  is 
not  satisfied,  control  is  transferred  to  determine  if  there  is  a  valid  inter¬ 
sect  with  the  plane  surface  containing  V+H. 
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The  statements 


Cl 6  COMPUTE  ROUT  rOR  EXIT  FROM  V-PLANE  SURFACE 
C 

INTSEC«INTSEC«1 

ROUT-CP 

LRO-1 


are  used  to  advance  the  count  in  INTSEC  by  one  as  a  result  of  the  valid  inter¬ 
sect  with  the  V  plane.  ROUT  is  assigned  a  value  from  the  previously 

computed  intersect  with  the  V  plane,  and  the  surface  number  variable  is  assigned 
for  an  exit  from  the  V  plane. 

The  statement 

IF ( INTSEC  *06*2 l GOTO  300 


is  used  to  determine  if  two  valid  intersects  have  been  found.  If  true,  con- 
trol  is  passed  to  the  end  of  the  subroutine.  If  not,  the  intersect  with  the 
V+H  plane  will  be  determined. 

The  statement 

Z2Q  cW"VRHHN/»« 


is  used  to  compute  the  intersect  of  the  ray  with  the  V+H  plane  surface. 
The  statements 

F1*CM*CM"2»* ( (VPW«KHJ»Cm*VPH1 *HH*P  VP  if-RT*RT 
IFtFj ,QT.0.)OOTO  350 


are  used  toevaluate  Equation  (60)  for  S-RIN  to  determine  if  the 
with  the  V+H  plane  surface  is  within  the  cross-section  of  the 


intersect 

base. 


S2-2S  [WB-(V-XB)  +  (WB-H)]  +  (V-XB)2  +  2(V-XB)-H  +  H-H  -  R^  <  0 


(60) 
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If  Equation  (60)  is  satisfied >  a  valid  intersect  occurs-  If  the  equation 
is  not  satisfied,  control  is  transferred  to  the  end  of  the  subroutine  where 
a  total  miss  is  recorded* 

The  statements 

COMPUTE  HIM  FOR  ENTRY  INTO  V*H  PL»Nt  SURF*CE 
C 

RIN*CH 
LHI»2 
SOTO  300 


are  used  to  assign  to  RIN  the  value  just  computed  for  an  intersect  with_the  V+H 
plane,  and  to  assign  the  surface  number  variable  for  an  entry  into  the  V+H 
plane.  Control  is  then  transferred  to  the  end  of  the  program  for  a  final  check 
of  RIN  and  ROUT. 

The  statement 

25o  IFtVPHHH.LT.O.lOOTO  350 


is  used  to  determine  the  ray  (moving  in  a  direction  within  90°  of  vector  H) 
will  intersect  the  V+H  surface  plane,  A  negative  result  of  the  test  would 
indicate  a  negative  distance.  Therefore,  control  is  passed  to  another  area 
of  the  subroutine  where  the  total  miss  condition  is  recorded.  A  positive^ 
result  indicates  a  positive  distance;  therefore  the  ray  intersects  the  V+H 
surface  plane. 

The  statement 

CP* VPhhh/PH 


is  used  to  compute  the  intersect  of  the  ray  with  the  V+H  surface  plane. 
The  statements 

Fl“Cp*Cp“2»*( tVPW**H)#cP"VPM>*HH*PVPV-RT»RT 
IF(Fl.GT,o,)QOTO  2*0 
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are  used  to_evaluate  Equation  (60)  for  S-ROUT  to  determine  if  the  intersect 
with  the  V+H  plane  surface  is  within  the  cross-section  of  the  Rx  base.  If  the 
equation  is  satisfied,  a  valid  intersect  occurB.  If  the  equation  is  not 
satisfied^  control  is  transferred  to  determine  if  there  is  a  valid  intersect 
with  the  V  plane  surface. 

The  statements 


C. 

CIS  COMPUTE  POUT  FOP  EXIT  FROM  V*H  PLANE  SURFACE 

JnTSEc«INTSEC*1 

ROUT-CP 

CPC** 


are  used  to  advance  the  count  in  INTSEC  by  one  as  a  result  of  the  valid  inter¬ 
sect  with  the  V+H  plane,  _R0UT  is  assigned  a  value  from  the  previously  com¬ 
puted  intersect  with  the  V+H  plane,  and  the  surface  number  variable  is 
assigned  for  an  exit  from  the  V  plane. 

The  statement 


260  !FUNT3EC.QC*2I00T0  300 


is  used  to  determine  if  two  valid  intersects  have  been  found.  If  so,  con¬ 
trol  is  passed  to  the  end  of  the  subroutine  for  a  final  test  of  RIN  and  ROUT. 
If  not,  the  intersect  with  the  V  plane  will  be  determined. 

The  statement 


CM«VPH/WH 


is  used  to  compute  the  intersect  of  the  ray  with  the  V  plane  surface. 
The  statements 

Fl«CH*CR*2.*CM»VPN*PVPV*R0*RB 
iriFi.aT.o.MiOTo  35o 
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are  used  to  evaluate  Equation  (57)  for  S=RIN  to  determine  if  the  intersect  with 
the  V  plane  surface  is  within  the  cross-section  of  the  Rg  base.  If  the  equation 
is  satisfied,  a  valid  intersect  occurs.  If  the  equation  is  not  satisfied, 
control  is  transferred  to  record  a  total  miss. 

The  statements 


c?9  compute  «in  for  entry  into  v-plane  surface 
c 

rin«cm 

L«I*1 


are  used  to  assign  RIN  the  value  just  computed  for  an  intersect  with  the  V 
plane  and  to  assign  the  surface  number  variable  for  an  entry  into  the  V 
plane. 

The  statement 


C 

300  IF  <  »8S (BOUT-RIN) -ROUTM . OE-S) 350*350.360 


is  used  to  determine  if  the  distance  between  RIN  and  ROUT  is  extremely  small. 
If  it  is,  a  miss  is  recorded  for  RIN  and  ROUT.  If  not,  control  is  returned 
to  the  calling  program. 

The  statements 


C. 

C?0  RAY  MISSES  TRC 
C 

350  RIN-PINF 
R0UT»-PINF 

lri«o 

lro«o 

360  RETURN 


are  used  to  record  a  miss  of  the  TRC.  RIN  is  set  to  an  extremely  large 
positive  value  and  ROUT  is  set  to  an  extremely  large  negative  value.  The 
surface  number  entry  and  exit  variables  are  set  to  zero.  Control  is  then 
returned  to  the  calling  program. 
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Subroutine  ELL 


This  subroutine  computes  the  ray  intersections  with  an  ellipsoid  of 
revolution  as  illustrated  in  Figure  66. 


ROUT 


XB 

WB  WB 
C 

T  X 

a’  b 
RIN 

ROUT 


starting  point  of  ray 

direction  cosines  of  ray 

length  of  the  major  axis 

foci  of  the  ellipsoid 

distance  to  entry  inter¬ 
sect 

distance  to  exit  inter¬ 
sect 


FIG.  66.  Ray  Intersection  with  Ellipsoid  of  Revolution 
The  statements 


DIMENSION  FOCT a d) tFOCie (31 
DIMENSION  MASTER ( 10000) 

COMMON  ASTFPliOOCn* 

COMMON /PAREM/KS <3) J ) * IR 

COMMON/8€OM/LaASe.RINiROUTtLRl»LROtflNFf ICRRtoIST 
COMNON/UNC{3E*/NRPP*NTMlP»N$CALtN6Q0Y»NRMA*«LTRiPtLSCAL»LR£GQt 
1  LOaTaiLRINilRqT  tL 10  <L0C0A *Il5*i30 ®LB0QY  f Na4c iKLOOR 


are  used  to  dimension  arrays  and  pass  information  into  and  out  of  the 
subroutine . 

The  statement 

EQUIVALENCE  { ASTER-MASTER* 

is  used  to  establish  equivalence  between  the  ASTER  and  MASTER  arrays. 
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The  statements 


C 

c?  retrieve  location  of  ellipse  foci  A"o  lcnoth  storage  positions 

c 

CALL  UN2 (LOCDa* IV1 * IV2) 

IRR«MASTER(LOCOA*I) 


are  used  to  retrieve  the  pointers  to  the  storage  locations  of  the  ellipse 
foci  and  length  of  the  major  axis. 

The  statements 


F0CIA<1>" ASTER lIVj) 
FOCIAI*)«A$TER<IVi*l) 
F0CIA«3)»ASTER(IVj*2» 
FOCI 8  <j)*AST£R(IVj) 

FnCIB<2>aAST£R(IV2M> 

F0CI8(3)»ASTER(IV2^2I 

C«ASTER(IRR> 


are  used  to  retrieve  the  values  of  the  foci  coordinates  and  major  axis  length 
from  the  ASTER  array . 

The  statements 

RINaPlNF 

POUTa-PINF 


are  used  to  initialize  the  value  of  RIN  to  an  extremely  large  positive  number 
and  ROUT  to  an  extremely  large  negative  number. 


The  statements 


C 

C?  COMPUTE  COORDINATES  FOR  VECTOR  01  ANq  02 

c 

01Xa*B(l)-F0CIA(l) 

01VaXB(2)«F0ClA(2) 

0lZ«XB(3)-F0ClA(J) 

02XaX8<l»-F0ClB<l> 

02YaX8<2)-F0CIB<2> 

02ZaXB<3>-F0ClB<3> 
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are  used  to  compute  the  coordinates  of  and  using  the  relationship 


D  -  XB  -  F 
XXX 


B  =  XB  -  F 

y  y  y 


D  =  XB  -  F 

Z  2  2 


The  statements 


C 

Cl  COMPUTE  DOT  PRODUCTS 

C 

M»2.*<O1X*h8U)*o1V*W0(2)  *D1Z*«B(3]  i 
A2"2«* i S  *02v#w8 I*' *3' I 
ai«oix*oix*oiY*oiy*oiz«oiz 
B?«02X«D2**D2Y»02Y»D2Z*02i 


are  used  to  compute  vector  dot  products  required  for  Equation  (54) . 


—  2  —  2  ? 

D1  -  °2  -  C 

'Jn  _  r.TT>  rm  V 

‘“1  U  -  .fr  -  I 

2 

-2C 

-2C  S  '  V\D2  +  m'Sl 

(64) 


where : 


A1  =  2D_l  •  WB 
A2  =  2D^  *  WB 

B!  -  Dx2 


B2 


2 
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The  statements 


£4  COMPUTE  A  ANO  8 


A A* (A2«A) ) / (2»*C) 
B8b«C*C*B2-B1>/I2.*C> 


are  used  to  compute  the  A  and  B  terms  in  Equation  (64). 


A  =  BB  = 


2  _  2 
C  +  D, 

2 


2C 


B  =  AA  = 


2D2  •  WB  -  2D1  •  WB 
2C 


The  statements 


£a  COMPUTE  LAMBDA  ANO  MU 
C 

ALAMOaAA«AA*l, 
ALAMi»(AA»8B-.9*A2)/AtAM0 
U« <00*88-821 /ALAMO 


are  used  to  compute  X 


1 


and  u  using  the  equations 


A-B  -  D22-WB 


A  2 

B  -1 

.2  _  2 

A  -D2 

P  “ 

b2-i 

(67) 


(68) 
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The  statements 


C 

C*  compute  RlN  AND  ROUT 

C 

OI$CRM*Al.AMl««tAMt-U 

if  <discrm,le*o« ) return 

SORTDI>$ORT(DIScRm) 

RINm-ALAMi-SORTDI 

ROUT«-aLAMi«SORTDI 

RETURN 


are  used  to  compute  KIN  and  ROUT  according  to  the  equations 


RIN  =  -x  -  yj 

'2 

X  -  v 

ROUT  =  -A  +  V 

k2-v 

(69) 


(70) 


2 

If  X  t  li  0,  no  intersection  occurs,  and  execution  returns  to  the  calling 
routine  with  RIN  set  at  10^°  and  ROUT  set  at  -10^°. 
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Subroutine  RAW 


This  subroutine  computes  the  ray  intersections  with  a  right_angle  wedge. 
The  right  angle  wedge  is  defined  by  vertex  V  and  length  vectors  H^,  and 
as  shown  in  Figure  67, 


RIN 


ROUT 


XR 

WB 

3WR 


RIN 


vertex  of  the  RAW 

length  vectors  of  the  RAW 

point  on  a  plane  where  the 
ray  intersects  the  plane 

starting  point  of  ray 

direction  cosines  of  ray 

distance  from  XR  to  point 
where  ray  intersects  plane 

distance  to  entry  intersect 


ROUT  distance  to  exit  intersect 
FIG-  67.  Right  Angle  Wedge 


The  statements 

DIMENSION  hi  < 3)  *NJ<3)  iVtjttASOU)  tPVU)  *Q(1) 

COMMON  ASTER (1 0000 > 

COMMON/PAREM/XB  <3) iWB  O) 1 1R 

COMHON/GEOM/tRASEfRlNf ROUT#tRl*uRO»PlNf*IERR»oIST 
COMMON/UNCGEM/NRPPtNTRlPtNSCALfNfiOD^tNRMAXiLTRlPiLSCALti-RCODi 
I  LOATa iLRIN«LROT  «LI0«L0CDAi 1 15 f I JO  *LB0DY*NA$c iRLOOP 

are  used  to  dimension  arrays  and  pass  information  into  and  out  of  this 
subroutine. 

The  statements 

C 

Cl  retrieve  locations  of  vertex  and  LENGTH  vectors 
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CALL  UN2(L0C0A*IV.lHl) 

LOC"LOCOAM 

CALL  UN2(L0CtIHZ*IH3> 


are  used  to  retrieve  the  storage  locations  of  the  vertex  and  length  vectors 
in  the  ASTER  array . 


The  statements 


HKD-aSTEH 
Hi <2)«aSTER 
mioi-aster 
M2  < 1 1 ■ ASTER 
h?  <  a i vaster 
H2<3)«*STCR 
M3<i»«aSTEH 
H  3 ( 2  > "ASTER 
HSfat^ASTeR 

V  t  J I • ASTER ( 
V(2)«A$TER< 

V  (jl "ASTER { 


(IHU 

(IH2) 

f IHZ*2> 
UHJ) 

IV) 
IV*p 
I  V*2> 


are  used  to  retrieve  the  x,  y»  and  z  coordinates  of  the  vertex  and  length 
vectors  from  the  ASTER  array. 


The  statements 


RIH*-PINF 

ROUT«PlNf 

CMa.P InF 

CP*PINf 

L*0 

L  1*0 

K«0 

LHI-0 

LBO-o 


are  used  to  initialize  variables  prior  to  the  start  of  computations. 
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The  statements 


C 

C?  COMPUTE  A 

ASQ  U  t  *Hl  (1) »H1(H  +M1  (2>AH1(2)*HK3J»M1  (3) 
AS0t2)»M2(i>*M2(l) ♦H2t2)*M2l2) ♦H2l3)*HJ(3> 
AS0(3)*M3tl)*H3{l>*M3(2)*M3(2t ♦H3t3)*M3(3) 


are  used  to  compute  the  simplifying 


cons  tent 


using  Equation 


A  =  H  -H  ,  i  -  1,2,3 


(72) 


The  statements 


C 

Cl 

c 


COMPUTE  P 


1 V l *XB ( 1 ) -V ( 1 ) 
2V2«xet21-Vf2) 
3V*»XB (JI-VIJ) 


;Vi»X8l3>*V<3) 

n«X0lVl«Ml  tl>**B2V2*MH2)*X83V3*Ml  t31 
2» -IfllV l»Hz ( 1 ) .XH2V2*M2 (2) *XB3V3*M2  13) 

t  %  \  *  HD4U4tU'l  AiniUliU1!  f  1  ) 


are  used  to  compute  the  simplifying  constant  P 


using  Equation 


V  =  (XB-V)  *  H  ,  i  -  1,  2,  3 


(73) 


The  statements 


C*  COMPUTE  0 

c 
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G(1)*PB<1)*M1  (2)*WBU)*HlO) 
0(2)>WB<l)*H2(n«WB<2)*H2(2)»MeO)*N2O) 
0O)««a(l>*Na(})«MB(2)*M3(2)«MB<)>*M3(9l 


are  used  to  compute  the  simplifying  constant  using  Equation 


G±  =■  WB-T^,  i  =  1,  2,  3 


The  statement 

C 

on  140  1*1.2 


is  used  to  start  a  loop  which  will  test  G  ,  P  ,  G^,  and  P  to  determine  if 
intersections  are  possible.  ±  l  /  L 

The  statement 


ir<G<im0.110>60 


is  used  to  test  G^  and  C0  and  branches  accordingly. 
The  statement 


10  IP <-PV<I))20» 400.400 


is  used  to  test  P^  or  ¥  ^  if  G^  or  is  less  than  zero.  If  -P  >  0  and 
Gi  <  0  the  raY  is  moving  away,  no  intersection  is  possible,  and  execution 
transfers  to  Statement  400. 

The  statement 


C. 

ca  compute  si  or  sa 

c 

20  TCMP*-RVU»/GUi 

If (TEMP-CP) 30.130.130 


(74) 
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are  used  to  compute  the  intersect  distance  using  Equation  (75)  if  -P 


i 


< 


0. 


-VG1 


(75) 


or 


S1  ■  -YG2 


(76) 


The  computed  distance  is  compared  with  the  previously  computed  value 
of  CP  on  the  initialized  value.  If  the  computed  value  is  greater,  execution 
transfers  to  Statement  130. 

The  statements 


30 

L"! 

0OTOUo»5O)»I 

40 

fltiTO  130 

GOTO  130 


are  used  to  set  CP  equal  to  the  computed  value  and  LRO  equal  to  three  for 
1=1  and  LRO  equal  to  one  for  I  =  2  if  the  computed  value  is  less.  Execution 
then  transfers  to  Statement  130. 

The  statement 


6o  irt-pvm .Uto.nioTO  uo 


is  used  to  test  or  P?  if  Gp  or  Gp  is  greater  than  zero.  If  -P-j_  <  0  an 
intersection  with  the  face  in  question  will  not  occur,  and  execution  transfers 
to  Statement  130. 
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The  statements 


C 

Cfc  COMPUTe  SI  OR  S3 

c 

Te*p««Pv<j)/o<i) 

!P<T£MP,LC.CM)OOTO  130 


are  used  to  compute  the  intersect  distance  using  Equation  (75)  or  (76)  if 
-Pi  >  0.  The  computed  distance  is  compared  with  the  previously  computed 
value  of  CM  or  the  initialized  value.  If  the  computed  value  is  less  than 
or  equal  to  CM,  execution  transfers  to  Statement  130. 


The  statements 


CM«TfMP 

K«I 

GOTO  (<90*100**1 
90  LR1«3 
QOTO  ijo 
100  LRIal 
00T0  ijo 


are  used  to  update  CM  to  the  value  just  computed  and  set  LRI  equal  to  three 
^or  I  —  1  and  LRI  equal  to  one  for  1=2  if  the  computed  value  is  greater 
than  CM.  Execution  then  transfers  to  Statement  130. 

The  statements 


C 

110  IP  (PVm.LE.O.IOOTO  810 

ir <pv<!> .of .aso(I) >oOto  bio 


are  used  to  test  whether  an  intersection  is  possible  with  the  body  if  Gi  or 
C£  is  equal  to  zero.  If  0  or  P^  >_  an  intersection  is  not  possible, 
and  the  routine  is  exited  via  Statement  810. 

The  statements 


130  Ll-Ll*! 
140  continue 


are  used  to  complete  the  loop  computing  with  G 


1* 


and 
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The  statement 

tF(8OH150«210*230 


is  used  to  test  the  value  of  and  branch  accordingly. 


The  statements 


C 

C7  COMPUTE  56 
C 

156  TEMP*ASOOt-PV(3) 

tfitemp,oe.o*»ooto  180 

tFMP*TEMP/SO» 

tFlTEMP.LC.CMlQOTO  190 

CM»TEMP 

K«3 

LBI*6 


are  used  to  compute  the  intersect  distance  using  Equation  (78)  if  G3  is  less 
than  zero. 


'  (-P3+A3,/G3 


(78) 


If  A3-P3  0,  execution  transfers  to  Statement  180.  If  A3-P3  <  0,  is 

computed  and  compared  to  the  previously  computed  value  or  initial  value  of 
CM.  If  S5  <_  CM,  execution  transfers  to  Statement  190.  If  >  CM,  CM  is 
updated  with  the  value  of  and  LRI  is  set  to  six. 

The  statement 

IB0  IF I^PV (3) )  j9Q  t40Q  *400 


is  executed  if  A3-P3  ^  0.  If  -P3  >  0  an  intersection  will  not  occur,  and 
execution  transfers  to  Statement  400* 

The  statements 

Cft  COMPUTE  55 

C  190  TEMP«-PV  l3>/30> 

1F1TEMP.0E.CP180T0  290 
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L-3 

l«o«»s 

OflTO  290 


are  used  to  compute  the  intersect  distance  using  Equation  (77)  if  -P3  <  Q 


S5  •  'VS 


(77) 


If  S5  is  greater  than  or  equal  to  the  previously  computed  value  or  the  initial 
value  of  CP,  execution  transfers  to  Statement  290.  Otherwise,  CP  is  updated 
with  the  value  of  S5,  LRO  is  set  to  five,  and  execution  transfers  to 
Statement  290. 


The  statements 


C 

210  IF IPVtSl.LC.O.IOOTO  *00 

ir IPV (31*430 (3) >2«0*Z«0»400 


of  the  numerator  of  Equations  (77)  and  (78)  if  G3 
0  or  (P3-A3)  >  0  an  intersection  cannot  occur, 
Statement  400.  If  Cl* 3  A^j)  0,  execution  transfers 

The  statements 


are  used  to  test  the  value 
is  equal  to  zero.  If  P3  < 
and  execution  transfers  to 
to  Statement  290. 


C 

C9  COMPUTE  S3 

c 

230  IF(*PVOl.LE.0.>®0T0  260 
TEMP**PV (31/6(31 

IFtTCMP.LE.CNieOTO  260 

CM*TEMP 

«•! 

L«1*S 


are  used  to  compute  the  intersect  distance  using  Equation  (77)  if  G3  is 
greater  than  zero.  If  -P3  <_  0,  execution  transfers  to  Statement  260.  If 
-p3  >  0,  S5  is  computed  and  its  value  compared  with  a  previously  computed 
value  or  the  initial  value  of  CM.  If  S5  is  >  CM,  CM  is  updated  with  the 
value  of  S5  and  LRI  is  set  to  five. 
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The  statements 


Cl  0  COMPUTE  $6 
C 

260  T€HPMS«(l)-PVO> 

ir <TEMP*LE*Q*>*OTG  600 

TEMP«TE*P/01J1 

if ( temp *oe*cp> goto  *9o 

CPvTEMP 

LPO-6 


are  used  to  compute  the  Intersect  distance  when  -P  0.  If  (A^-P 0, 

an  intersection  does  not  exist ,  and  execution  transfers  to  Statement  400, 

If  (A  -P_)  >  0,  the  S  distance  is  computed  using  Equation  (78)*  If  Sg  is 
3  3  6 

less  than  a  previously  computed  value  for  CP,  CP  is  updated  with  and 
LRO  is  set  to  six. 

The  statements 


C_ 

CU  COMPUTE  $2 
C 

290  MwASQ<2)*0{1  )  *  ASG  <  1 )  •<!  (2  * 

PVUIapVtll  M5Q12*  ♦PV«2>9tiO(I* 

T0P«6SQ<U*iSa<2J^PVU) 

IF(/0)3UO5Ot33O 


are  used  to  compute  the  terms  used  by  Equation  (79)* 


VA2  ‘ 


P1A2  ' 


V 


l)/( 


A2G1 


(79) 


A  test  Is  made  on  the  value  of  the  denominator,  and  branching  is  directed  as 
required.  If  the  denominator  is  negative,  the  statements 


3111  TeMP»T0**/W  ,  . 

irlTeMP.LE.CNlOOTO  38n 


397 


TN  4565-3-71  Vol  II 


CMbTCMP 

Kb* 

L«I*2 
onto  3«o 


compute  the  intersect  distance  S2  and  compare  the  value  with  the  current 
value  of  CM.  If  S2  is  greater  than  CM,  CM  is  updated  with  S2,  LRI  Is  set 
equal  to  two,  and  execution  transfers  to  Statement  380, 

The  statements 


C 

330  iriTOPtlT*0.>GOTO  400 
T|MP«TOP'A0 

IF  (TEMP^CP)  370  000*380 


are  used  to  test  the  value  of  the  numerator  if  the  denominator  of  Equation  (79) 
is  positive.  If  the  numerator  is  negative,  execution  transfers  to  State* 
tnent  400,  Otherwise,  S2  is  computed  and  compared  with  CP* 

The  statements 


C 

390  IFIPV U> •LC.0-I0OTO  400 
IF (-T0P1 300*400*400 


are  used  to  make  additional  tests  if  the  denominator  is  zero.  If  (PtA2  + 
p2Al)  1  0,  execution  transfers  to  Statement  400.  If  the  numerator  is 
negative,  execution  transfers  to  Statement  400. 

The  statements 

370  C^-TCMP 
UROb* 


are  used  to  update  CP  with  the  value  computed  for  S2  and  set  LRO  equal  to  two. 
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The  statements 


3*0  400 

ROUT»CP 
RIN«C* 


are  used  to  check  whether  CP  or  CM  have  been  updated  with  a  computed  inter¬ 
section  distance.  If  either  has,  ROUT  is  set  to  the  latest  value  of  CP,  and 
RIN  is  set  to  the  latest  value  of  CM. 

The  statements 


400  I* (ROUT  tGE,PlNF  t  QQTO  «J0 
IF (ROUT.LE.O.HJOTO  *10 
IF  <  R I N ,GE » ROUT ) GOTO  010 

trUBStRlN-ROUT) .^T »R0UT*1 , 0E-5» GOTO  120 


are  used  to  evaluate  the  values  of  RIN  and  ROUT  which  have  been  set  in  the 
routine.  If  ROUT  has  a  positive  value  less  than  1050,  and  RIN  is  less  than 
ROUT,  an  intersection  has  occurred  and  the  routine  is  exited  via  State¬ 
ment  820  with  the  computed  values  of  RIN  and  ROUT. 

The  statements 


8io  R0UT»-PlNF 
RJRbRINF 
LRO>o 
LRHO 

*20  RETURN 


are  used  to  set  ROUT  equal  to  -105°  and  RIN  equal  to  105°.  An  intersection 
is  not  recorded  by  LRO  or  LRI,  and  execution  returns  to  the  calling  routine. 
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Subroutine  ARB 


This  subroutine  computes  the  intersection  of  a  ray  with  an  Arbitrary 
Polyhedron  (ABB) .  The  ARB  is  described  by  eight  points  which  define  six 
planar  surfaces  as  shown  in  Figure  68  below: 


ROUT 


XB 

P6  WB 
S- WB 


P  -  P 
1  8 


RIN 


ROUT 


_!aL 


starting  point  of  ray 

direction  cosines  of  ray 

distance  from  XB  to  point 
where  ray  intersects 
plane 

point  on  plane  where  ray 
intersects  plane 

eight  points  which  describe 
the  arbitrary  polyhedron 

distance  to  entry  inter¬ 
sect 

distance  to  exit  inter¬ 
sect 


BIG-  £8*  Arbitrary  Polyhedron 

An  input  processing  subroutine,  Subroutine  ALBERT,  converts  the  point  and  side 
descriptions  (which  are  input)  into  six  plane  equations  and  adjusts  the  sign  of 
the  coefficients  such  that 


V  +  B±T  +  C±2  +  >  0  (i  =  1,6) 


(81) 


Subroutine  ALBERT  then  stores  these  data  in  the  ASTER  array. 


The  statements 


DIMENSION  A4 (*♦*) »XP  13) 

COMMON  aSTEH ( 100QG> 

COMMON/PAREM/XBI3) »WB(J) #|R 

CaMMON/QEOM/LftASe>ftIN'ftOUTtlRI«LftQtPlNF*lCMUDUT 
C OMMON/ UNCOE M/NRPP t N T R I R t NSC A L < N8 00 V ( NRN A K * LTR I R t LSC AL * LREOO t 
1  LOATA*U*!N«LROT*UOlLOCOA»liStlJO*LBOoY«NAtc»KU>0* 
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are  used  to  dimension  arrays  and  pass  information  into  and  out  of  this  routine. 


The  statements 


C 

Cl  retrieve  planar  equations  prom  aster  array 

c 

L0C«L0CDA*1 
DO  10  I"l*6 
LOC*LOC*l 

CALL  UN2IL0C»L0»LC) 

AA(I *l)"ASTERtLC) 

AA(1*21«ASTER{LC*1) 

AA *  I *3) »ASTeR{LC*E) 

AA(I**)»ASTER(LO) 

10  CONTINUE 


are  used  to  retrieve  the  coefficients  of  the  six  planar  equations  stored  in  the 
ASTER  array.  Subroutine  (JN 2  is  used  to  retrieve  the  locations  at  which  they 
are  stored.  The  retrieved  values  are  stored  in  the  AA  array  as  follows: 

AA(I , 1)  =  A 

i 

AA(I,2)  =  B 
AA(I , 3)  =  C, 

AA(I,4)  =  D. 

where  I  and  1  =  1,  6. 

The  statements 


rinb-pinf 

ROUTbPINE 

LRO«o 

L«I*0 

31*0. 

Ll*o 

Lz*0 


are  used  to  initialize  variables  which  will  be  utilized  during  the  computations. 
RIN  is  set  equal  to  -10^0,  and  ROUT  is  set  equal  to  10^0,  The  other  variables 
are  set  equal  to  zero. 


401 


TN  4565-3-71  Vol  II 


The  statement 

00  70  !•! •  A 


is  used  to  start  a  loop  which  performs  computations  for  each  face  of  the  ARB. 


The  statements 


C. 

CP 

c 


compute  numerator  AND  DENOMINATOR  of  distance  equation 


0«AA(I,4) 

SNUMa-O-AA 1 1 • I ) MB  1 1 ) -AA ( I »2) **8 *2 ) *AA ( I *  J)MB <3) 
*0CN«aa M « l > #MB < 1 ) +AA  < I *2>  *"6  <2>  *  AA < I »3) •*§ < j ) 


are  used  to  compute  the  numerator  and  denominator  of  Equation 

-  (A  XB  +  B.XB  +  C.XB  +  DA 
s.  =  —Li _ *  1-  V  l  z  if 

A  WB  +  B.WB  +  C.WB 
l___ _ 1  x  l  y  i  z 


(82) 


The  statements 


IF  < SOEN) 20 « To 1 30 
20  IF (SNUMJ A0*70»T0 
30  IF (SNUM) 70*70«A0 


are  used  to  test  whether  an  intersection  with  the  plane  is  possible.  If  the 
denominator  is  zero,  the  ray  is  parallel  with  the  plane  and  will  not  inter¬ 
sect.  If  the  numerator  and  denominator  are  both  greater  than  zero  or  both 
less  than  zero  the  ray  will  intersect  the  plane. 

The  statements 

C 

C3  COMPUTE  INTERSECT  0ISTANCE 
C 

40  SaSNUM/SDEN 
00  50  K»l*3 
XP(K)aX8<K>«S4WB(K> 

50  CONTINUE 


402 


TN  4565-3-71  Vol  II 


are  used  to  compute  the  distance  from  XB  to  the  plane  in  question  using 
Equation  (82)  and  the  x,  y,  and  z  coordinates  of  the  point  at  intersection 
XP  using  the  Equation 


XI  =  XB  +  WB*S, 
i  1 


(83) 


The  statements 


c*  test  if  Intersect  point  is  on  abb 

c 

00  60  J*  1  *6 
IFI1.EQ. J>80T0  60 

TNAAlJ.l)#XP(ll*AA<J*2>#XPt2>***<Jt3)*J(Pt3)*6A(J*6l 

IF(A8SfT).LE*l»oE-6tT>o* 

IFIT.LT.Q.100T0  Tfl 
60  CONTINUE 


are  used  to  test  whether  the  intersect  point  is  on  the  face  of  the  ARB.  If 
the  point  XP  is  on  the  face  of  the  ARB,  it  will  be  on  the  (+)  side  of  the  five 
remaining  planes.  Each  of  the  remaining  planes  is  tested  using  the 
relationship 


A  X  +  B  T  +  C  Z  +  D  >  0 

j  j  j  1  ~ 


(i  =  1,  6) 


(84) 


If  the  result  is  less  than  zero  for  any  of  the  remaining  planes,  the  ray 
does  not  intersect  the  face  of  interest. 

The  statements 


IFILl.flT.OtOOTO  65 

L1*I 

31*5 

80 TO  To 

69  IFIABSISl-S) .QT.1.0E*6>0OT0  100 


are  executed  if  the  test  described  above  is  satisfied.  When  the  first 
intersection  is  computed,  LI  is  set  equal  to  the  face  number  and  SI  is 
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set  equal  to  the 
is  computed,  the 


computed  Intersect  distance.  When  the  second  intersection 
two  intersect  distances  are  compared.  If 


Sl-S  > 


ixio“6 


execution  transfers  to  Statement  100. 


The  statement 

Til  CONTINUE 


is  used  to  complete  the  loop  considering  all  six  faces. 
The  statement 


IF (11 >200*200  » ISO 

13  used  to  test  whether  a  single  Intersection  has  been  computed.  If  no  Inter 
sectronn  were  found,  execution  In  transferred  to  S  t  atemen  t  200 .  If  f”t" 
section  was  found,  execution  transfers  to  Statement  150. 

The  statements 


100  32*S 
i-2"I 

IFuesrsi-sz) .le.sim*oE-s>ooto  2q0 


are  executed  when  two  intersections  are  found.  S2  is  set  equal  to  the  seconc 

IntersectT"  dl'ta"Ce’ a"d  12  U  »  the  face  number  which  contains  the 
intersection.  A  test  is  made  to  Insure  that  SI  and  S2  are  not  the  same  valur 

within  a  tolerance  of  1X10“5.  if  si  etmal*  c?  „  J  1 

in c  r  -f  equals  S2,  the  intersections  occur  at  the 

tMs  ls  assmed  *  — •  - 


The  statement 


IF(SI-S21 IlO'ZOOtlZO 
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is  used  to  compare  SI  with  S2  and  branch  accordingly.  If  SI  =  S2,  execution 
transfers  to  Statement  200,  which  records  a  miss.  If  SI  >  S2,  execution 
transfers  to  Statement  120. 

The  statements 


no  rin>si 

ROUTES? 

l_RI*Ll 

UR0«L2 

RETURN 


are  executed  if  SI  <  S2.  These  are  used  to  set  RIN  equal  to  SI,  ROUT  equal 
to  S2 ,  LRI  equal  to  LI,  and  LRO  equal  to  L2.  Execution  then  returns  to  the 
calling  routine. 

The  statements 


120  R!N«52 
LRI"L2 
130  RAUT»Sl 
LR0«U 
return 


are  executed  if  SI  >  S2.  These  are  used  to  set  RIN  equal  to  S2,  ROUT  equal 
to  SI,  LRI  equal  to  L2,  and  LRO  equal  to  LI.  Execution  then  returns  to  the 
calling  routine. 

The  statements 


190  DO  100  J«l*6 

iF<u.£Q«J»aOTo  U0  . 

Tia««< •**( J*4l 
If ( aBS ( T l » .UE*l«OE-6>Tl»0. 


If (Tl.tT.O.  HJOT0  200 
160  CONTINUE 
GOTO  130 


are  executed  if  only  one  intersection  is  obtained,  i.e.,  the  ray  originated 
within  the  ARB. 
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If  the  ray  originated  within  the  ARB,  XB  will  be  on  the  (+)  side 
of  each  of  the  six  faces.  The  relationship 


AiX  +  B.Y  +  c±z  +  D±  i  0  (i  =  1,  6) 


(81) 


is  tested.  If  it  is  greater  than  zero  for  each  of  the  faces,  execution 
transfers  to  Statement  130,  setting  ROUT  equal  to  SI  and  LRO  equal  to  the 
face  number  containing  the  intersection  point.  Execution  then  returns 
to  the  calling  routine. 

The  statements 


C 

200  PINaPlNF 
HOUT--PINF 
L«I"0 
LPO»o 
RCTUPN 
END 
C 

c 


are  executed  if  no  intersections  with  the  ARB  are  found.  RIN  is  set  to  1050, 
ROUT  is  set  to  —10  ,  and  LRI  and  LRO  are  set  to  zero.  Execution  then 

returns  to  the  calling  routine. 
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Subroutine  TEC 


This  subroutine  is  used  to  compute  the  Intersection  of  a  ray  with  a 
truncated  elliptic  cone  as  depicted  in  the  following  figure: 

XB  starting  point  of  ray 

WB  direction  cosines  of  ray 

V  vertex  of  TEC 

H  height  vector  of  TEC 

N  direction  of  normal  to  base 

7T  direction  of  semi-major  axis 

R1  the  radius  along  the  semi-major 
axis  of  the  larger  ellipse 

R2  the  radius  along  the  semi-minor 
axis  of  the  larger  ellipse 

R3  the  radius  along  the  semi-major 
axis  of  the  smaller  ellipse 

R4  the  radius  along  the  semi-minor 
axis  of  the  smaller  ellipse 


FIG.  69.  Truncated  Elliptic  Cone 


The  statements 


DIMENSION  VXB(3)*H<3)*HN(3)«AAtJ>»Bb(3) 

DIMENSION  MASTER [, ooOO) 

COMMON  ASTEfiUOOOO) 

COMMON/P AREM/XBI3) .MB(3>  «IR 

CnMMON/OCOM/LBA5C*RINiROUT*LRl*LRO'PlW*ICRRtoIST 

COMMON/UNCQEH/RRRP*NTRIP*N$CAL*NBOoY  t NRM*Kf L  Tr JP  *|_SCAL t CRE0O * 
1  LDATt*LRlN«lROT'L.lO'LOCDA*lLS*l30«LBOOV(NA$C’ftLOOP 


are  used  to  dimension  arrays  and  pass  information  into  and  out  of  this 
subroutine . 
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The  statement 

equivalence (aster 'Master) 

is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array 
The  statements 


Cl 

c 


c 

c? 

c 


c 

Cs 

c 

c 


RETRIEVE  location  of  VERTEX  and  height  vector  coordinates 

CALL  UN2(L0C0A,IV,IH) 

LOC-LOCDA*! 

RETRIEVE  LOCATION  OF  NORMAL  AND  AXES  COORDINATES 

CALL  UNZtLOC, IN.IAI 
LOC*L0C*I 


0F  iCN®™$  0F  *e  MI -major  axis  and 
SEN I -MI NOR  AXIS  Of  RASE  ELLIPSE 

Call  UN2(LOOIRl»IR2t 


are  used  to  retrieve  the  pointers  to  the  coordinates  of  the  vertex,  the  height 
vector,  the  normal,  the  semi-major  axis,  and  the  pointers  to  the  length  of  the 

semi  major  axis  and  semi -minor  axis  of  the  larger  ellipse  from  the  MASTER 
array* 


The  statement 


C 

CA  RETRIEVE  LOCATION  OF  TMe  RATIO  OF  TM£  LARGER  TO  SMALLER  ELLIPSE 
IRS-MASTER  CLOCM) 


is  used  to  retrieve  the  location  of  the  ratio  of  the  larger  to 
ellipse  from  the  MASTER  array. 


the  smaller 


The  statements 
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C%  RETRIEVE  COORDINATES  Of  VERTEX  AND  COMPUTE  COORDINATES 
C  Of  (V-XB)  VECTOR 

C 

VXBm»ASTER(IV)-X8m 
VXR<2>  WASTER  <IV*H*XBt2» 

VXet3>*ASTER<IV*2)-X8<3> 


are  used  to  retrieve  from  the  ASTER  array  the  x,  ^  and  z_components  of  the 
vertex  and  to  fill  a  three-element  array  with  vx"XBx»  Vy“XBy»  and  VZ~XBZ' 


The  statements 


Cft  RETRIEVE  COORDINATES  Of  HEIGHT  VECTOR 
C 

H(U«ASTER|1H) 

H (2 } «ASTER ( IH* l ) 

H<3)«*A3TERIIH*2) 


are  used  to  retrieve  the  x,  y,  and  z  components  of  the  height  vector  from  the 
ASTER  array  and  to  store  them  in  a  three-element  array. 

The  statements 


C 

CT  RETRIEVE  COORDINATES  Of  NORMAL  TO  BASE  ELLIPSE 

C 

HN{l)*A5TER(lN( 

MN(2)»aSTER(IN*1> 

MNO)*A3TER(IN*z) 


are  used  to  retrieve  the  and  z  components  of  the  direction  of  the  normal 

vector  from  the  ASTER  array  and  to  store  them  in  a  three-element  array. 

The  statements 


CA  RETRIEVE  COORDINATES  Of  SEMI-MAJOR  AxtS  Of  BASE  ELLIPSE 
C 

AA ( 1 1  MASTER ( I A) 

AA<2>»aSTER<IAM> 

AA<3)»aSTERUa*2> 
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are  used  to  retrieve  the  x,  y,  and  z  components  of  the  direction  of  the  semi¬ 
major  axis  vector  from  the  ASTER  array  and  to  store  them  in  a  three-element 
array. 


The  statement 


S, 


COMPUTE  SCMI-MINOB  AXIS  UNIT  VECTOR  OF  BASE  ELLIPSE 
CALL  CROSS (BBtAAtHN) 


is  used  to  compute  the  cross  product  of  the  direction  of  the  semi-major  axis 
vector  and  the  direction  of  the  normal  vector,  which  results  in  the  direction 
of  the  semi-minor  axis. 

The  statements 


C. 

CIO 


C 

c 


RETRIEVE  LENGTHS  OF  SEMI-MAJOR  AND  Semi-mInOR  AXES 

ellipse  and  ratio  of  larger  to  smaller  ellipse 


OF  BASE 


Rl-ASTER(IRl) 

R2"ASTeR(IR2) 

RR»ASTER(IR3) 


are  used  to  retrieve  the  length  of  the  semi -major  axis  of  the  base  ellipse, 
the  length  of  the  semi-minor  axis  of  the  base  ellipse,  and  the  ratio  of  the 
base  to  the  top  ellipse. 

The  statements 


C. 

CU  COMPUTE  lengths  OF  SEMI-MAJOR  ANO  SEMI-MINOR  axes  of  top  ellipse 

R3«R1/RR 

Ra*R2/RR 


are  used  to  compute  the  lengths  of  the  semi-major  axis  and  the  semi-minor 
axis  of  the  top  ellipse. 
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The  statements 


C 

ci2  START  OF  COMPUTATIONS  FOR  OOT  PRODUCTS 
C 

HON>DOT(K»HN) 

HD A .00 T I  Hi AA) 

HD8*DOT<H«80> 


are  used  to  compute  the  dot  products  of  the  height  vector  and  the  normal 
vector,  the  height  vector  and  the  semi-major  axis  vector ,  and  the  height 
vector  and  the  semi-minor  axis  vector* 

The  statements 


WON'OOT 

WDA«D0T(W0*AA> 
rfOB»00T  <W0*B8> 


are  used  to  compute  the  dot  products  of  the  direction  cosines  of  the  ray  and 
the  normal  vector,  the  direction  cosines  of  the  ray  and  the  semi-major  axis 
vector,  and  the  direction  cosines  of  the  ray  and  the  semi -minor  axis  vector. 

The  statements 


VX0DN«dOT (VXRtHN) 

VKBDA*D0T(VXb*M> 

VXBD0*DOT(VX8*00t 


are  used  to  compute  the  dot  products  of  the  (V-XB)  vector  and  the  normal  vector, 
the  (V-XB)  vector  and  the  semi-major  axis  vector,  and  the  (V-XB)  vector  and  the 
semi -minor  axis  vector* 

The  statement 


C 

Cl  3  TEST  TO  DETERMINE  if  RAT  IS  PARALLEL  TO  TOP  AND  «aSC  PLANES 

C 

trues  (WON)  .ot«o4oooii0oto  zo 
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is  used  to  test  for  the  ray  parallel  to  the  top  and  base  planes  by  evaluating 
the  absolute  value  of  the  dot  product  of  the  direction  cosines  of  the  ray  and 
the  normal  vector  (WB*N).  For  WB-N  -  0,  the  ray  is  perpendicular  to  the  normal 
vector  and  parallel  to  the  top  and  base  planes. 

The  statement 


C 

Cl 4  COMPUTE  RATIO  On  NORMAL  TO  HEIGHT  OF  HIT 
C 

GAMMA  .  -VX80M/H0N 


begins  the  calculations  for  determining  the  intersections  of  a  ray  parallel 
to  the  top  and  base  planes.  This  statement  computes  the  ratio  on  the  normal 
of  the  height  of  the  hit. 

The  statement 


IFIOAMma.LT. 0.0  .OR,  GAMMA. 0T . „)  aOTO  5„o 


is  used  to  test  the  ratio  on  the  normal  of  the  height  of  the  hit. 
ratio  is  greater  than  one  or  less  than  zero, the  ray  is  either  above 
the  body*  and  a  miss  occurs. 

The  statements 


If  the 
or  below 


' 1 *-8aMMA) 


are  used  to  compute  the  length  of  the  semi-major  axis  of  the  intersection 
ellipse  from  Equation  (86) and  to  compute  the  length  of  the  semi-minor  axis 
of  the  intersection  ellipse  from  Equation(87). 


M  =  yR3  +  R1  (1-y) 


m 


YR4  +  R2  (1 


-Y) 


(86) 

(87) 


where  y  = 


(V-KB) -N 
H-N 
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The  statements 


ASe«i*« 


are  used  to  compute  M  squared  and  m  squared  of  Equations  (86)  and(87),  which  will 
be  used  to  solve  Equation  (92)  for  a  ray  parallel  to  the  top  and  base  planes 
intersecting  the  TEC. 


which  is  of  the  form 
2 

TS  -  2SX  +  p  =  0 
Solving  for  S  gives 

X  t  /  X  -pt 

s  =  - v - 

Therefore 

(93) 

(94) 
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The  statements 

TAaVXBDA*OAMMA»MDA 

TB»VXQoe*0*MM*«HOB 

are  used  to  compute  quantities  that  are  used  in  solving  for  X  and  y  for 
Equation  (9  2X 

The  statement 

OCN*BSQ*WDA*MDA*ASQ*WDB**OB 

is  used  to  solve  for  t  in  Equation (92). 

The  statement 

ir(A8S(0CN)  .LC.O.OOOPBOTO  500 

is  used  to  determine  if  the  absolute  value  of  r  of  Equation  (92)  is  less  than 
or  equal  to  a  very  small  value,  which  indicates  that  the  ray  misses  the  TEC. 

The  statements 

AMB0A*9$0*WDA*TA*A5Q«tf08«Tg 

UMaBSQ«TA*TA«ASQ*T0«T8»ASQ«B$O 

are  used  to  compute  the  values  of  X  and  y  in  Equation(92X 
The  statement 

0!SC"AMB0a«amb0a-0EN*UM 

is  used  to  compute  the  value  under  the  radical  of  Equations (93)  and(94). 

The  statement 

\f (OISC*LT.o«0>  80 TO  500 
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is  used  to  determine  if  the  value  under  the  radical  of  Equations  (93) and (94) 
is  less  than  zero,  which  means  that  the  ray  does  not  intersect  the  TEC. 

The  statement 

DISC-SORT  fox  SCI 


is  used  to  compute  the  value  under  the  radical  of  Equations  (93) and  (94) if 
the  ray  intersects  the  TEC. 


The  statements 


COMPUTE  ft  IN  AND  ROUT  A  NO  A  SSI  ON  SURF  ACC  NUMBER  FUR 
RIN  AND  ROUT  NITM  OUADRaTIC  SURFACE* 


RJN« ( AMSOA-OISC) /DEN 
ROUT*  (aM80A*OISO/DEN 
LRI-3 

OOTO  *oQ 


are  used  to  compute  the  values  of  RIN  and  ROUT  by  solving  Equations  (93)  and  (94). 
The  surface  number  entry  and  exit  variables  are  also  assigned  for  a  RIN  and 
ROUT  with  the  quadratic  surface.  The  subroutine  branches  to  another  section 
to  verify  the  intersection  points. 

The  statement 


C. 

C(6  SOLVE  for  TERMS  in  QUADRATIC  EQUATION 

C 

20  T AU« IRI/R2) 


begins  the  calculations  for  determining  the  intersection  of  a  ray  with  the 
TEC  where  the  ray  is  not  parallel  to  the  top  and  base  planes.  This  state¬ 
ment  is  used  to  compute  the  square  of  the  ratio  of  the  length  of  the  semi- 
major  axis  of  the  base  ellipse  to  the  length  of  the  semi-minor  axis  of  the 
base  ellipse.  This  will  be  used  to  solve  Equation  (101)  for  a  ray  that 
intersects  the  TEC  and  is  not  parallel  to  the  top  and  base  planes. 
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The  equation 


S  =  a9  +  6 


(95) 


is  the  equation  for  computing  the  distance  along  the  ray  to  the  point  of 
contact  where  a  is  the  distance  along  the  ray  from  the  plane  of  the  base 
ellipse  to  the  plane  of  the  top  ellipse  and  $  is  the  distance  along  the  ray 
from  start  of  ray  to  the  plane  of  the  base  ellipse. 

Therefore, 


RIN  =  a6  +  8 

ROUT  =  a6?  +  6 


(106) 


where  RIN  and  ROUT  are  possible  candidates  for  the  entry  intersection  and  the 
exit  intersection,  respectively. 

The  statements 


TR2SQ"TAU«R2SQ 

TRR4R2«TR2SQ-TAU»R2»R4 


are  used  to  compute  various  quantities  using  the  lengths  of  the  semi-major 
axis  of  the  base  and  top  ellipse  and  the  length  of  the  semi-minor  axis  of 
the  top  ellipse  to  solve  for  the  coefficients  of  Equat ion  (103). 


The  statements 


BETa«VX80N/WON 

4LPHA»W0N/W0N 
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are  used  to  compute  the  distance  along  the  ray  from  the  start  point  to  the 
plane  of  the  base  ellipse  and  the  distance  along  the  ray  from  the  plane  of 
the  base  ellipse  to  the  plane  of  the  top  ellipse. 


The  statements 


Tai*ALPHA*WDA-HDA 

TfU"ALPHA*VD0-HO9 

TA2«VXB0A-BETA»«0A 

IrZ^XbOB-BETa^OB 


are  used  to  compute  quantities  for  solving  t,  A,  and  the  constant  term  u 
in  Equation  (1011 

The  statements 


OEN  «TA1*Tai*TaU*Tb1*T01-TR4«2 
aPBDA*Ta1#TA2*TaU*T§i«TB2<-TRS4«2 
Um  «TA2*Ta2*TaU*TB2*TB2-TR2$Q 


are  used  to  compute  the  values  of  t,  A,  and  the  constant  term  u. 
The  statement 


IFIaBS(DEN)  .GT.n.DOQllGOTo  150 


begins  the  computation  for  the  intersection  of  the  ray  and  the  side  of  the 
cone.  This  statement  Is  used  to  determine  if  the  absolute  value  of  r  is 
greater  than  approximately  zero.  If  not,  the  ray  is  parallel  to  the  axis. 

The  statement 


ir (Pi .£Q»R3)goto  ioo 


is  executed  if  it  was  determined  by  the  last  instruction  that  the  ray  is 
parallel  to  the  axis.  This  statement  is  therefore  used  to  determine  if  the 
length  of  the  semi-major  axes  of  the  top  and  base  ellipses  are  equal.  This 
would  mean  that  the  sides  are  parallel  to  the  axis  of  the  TEC;  therefore  no 
intersection  with  the  sides  would  occur  for  a  ray  parallel  to  the  axis 
of  the  TEC. 
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The  statement 


1F(*M80*.NE.o.O>GOTO  no 


is  executed  if  the  sides  of  the  TEC  are  not  parallel  to  the  axis  of  the  TEC 
as  determined  by  the  last  instruction.  This  statement  therefore  determines 
if  \  from  Equation (101)  is  zero.  If  it  is  zero,  no  intersection  with  the 
quadratic  surface  can  take  place. 

The  statements 


Ci7  THE  RAY  HJSSfS  THE  QUADRATIC  SUNFAC*  OF  THE  TEC 
C 

10 0  S1*-PINF 
INF 

GOTO  goo 


are  usad  to  set  temporary  values  for  the  intersections  with  the  quadratic 
surface  to  an  extremely  small  value  and  an  extremely  large  value  if  it  was 
previously  determined  that  the  ray  could  not  intersect  the  quadratic  surface 

of  the  TEC. 

The  statement 

no  T«UM/(?.«AwB0A) 


is  executed  when  r  Is  zero,  the  sides  of  the  TEC  are  not  parallel,  and  A  is 
not  zero.  Therefore,  6  =  p/2X. 

The  statement 

C. 

Cl B  COMPUTE  DISTANCE  TO  InTEMSECT  WITH  UUA0«UTIC  SUBEaCC 

C 

120  S»bETA.ALPHA*T 


is  used  to  compute  the  distance  from  the  origin  of  the  ray  to  the  intersection 
on  the  quadratic  surface. 
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The  statement 

is  used  to  compute  the  vertical  distance  between  the  plane  of  the  base  ellipse 
anc^  the  plane  of  the  intersection  on  the  quadratic  surface. 

The  statement 

!F<*BS<F>  a£*0*OOOiJG0TU 


is  used  to  determine  if  the  vertical  distance  between  the  plane  of  the  base 
ellipse  and  the  plane  of  the  intersection  on  the  quadratic  surface  is  very 
nearly  zero*  If  the  distance  is  approximately  zero,  the  intersection  takes 
place  at  a  comer  at  the  base  plane. 

The  statement 
I  *■  fF  *  t 1  •  0  *  0  MM>TQ  |(jo 

is  tsed  to  determine  if  the  intersection  occurs  below  the  plane  of  the.  base 

elli pse . 

The  statement 

tFU0Stf-H0*)  *LE*O*0OPlH30TO 


is  used  to  determine  if  the  vertical  distance  between  the  plane  of  the  top 
ellipse  and  the  plane  of  the  intersection  on  the  quadratic  surface  is  very 
nearly  zero.  If  the  distance  is  approximately  zero,  the  intersection  takes 
place  at  a  corner  at  the  top  plane. 

The  statement 

1 F ( f # 6 T i HON >  GO  T  0  |00 


is  used  to  determine  if  the  intersection  occurs  above  the  plane  of  the  top 
ellipse , 
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The  statement 


125  TP  1  WON  >  130*500*1* i> 


is  used  to  determine  the  direction  of  the  ray  with  respect  to  the  normal. 
If  WB-N  is  zero,  meaning  that  the  ray  is  perpendicular  to  the  normal,  a 
miss  of  the  TEC  is  recorded  since  execution  of  this  statement  meant  that 
the  ray  was  intersecting  the  quadratic  of  either  the  top  or  base  plane. 

The  statements 


C 

Cl«  ASSIGN  TEMPOSAHV  VALUFS  To 

c 

130  51*5 

S2-PINF 
goto  200 
1*0  Sl»-PlNf 
S2*5 

GOTO  ZOO 


HIn  ANU  HOUT  PER  0 1 RfcCT 1 GN  Of  BAY 


are  used  to  store  temporary  values  of  RIN  and  ROUT  with  the  quadratic  surface, 
depending  upon  the  direction  of  the  ray.  A  branch  is  then  made  to  compute  the 
possible  intersections  with  the  top  and  base  planes . 

The  statements 


C 

RAY  PARALLEL  TO  SIDE 

c 

15ft  Q!SC«AM0DA*AMBDA^nEN#viM 

If (A0S(OISC* *QT*0,OOO1  M50T0 

TaAMftQA/DEN 

G^Tn  120 


are  used  to  compute  the  value  of  X2-yt  and  to  test  the  result  to  determine  if 
the  absolute  value  is  large  enough  for  the  ray  to  intersect  two  sides  of  the 
cone.  If  it  is,  control  is  transferred  to  compute  the  ray  intersections  with 
the  side  of  the  cone.  If  the  value  is  very  nearly  zero,  indicating  that  the 
ray  is  parallel  to  one  side,  the  value  of  9  =  X/t  Is  computed,  and  control  is 
transferred  to  compute  the  distance  to  the  intersection  with  the  side  of 

the  cone. 
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The  statement 


155  IMDISC.LT. O.OIGOTO  500 


is  used  to  determine  if  the  value  of  X  -pr  is  negative.  If  it  is,  no 
intersection  with  the  TEC  can  occur. 

The  statements 


C 

C?1  SOLVE  FOR  TWO  INTERSECTS  WITH  QUADRATIC  SURFACE 
C 

oisc»sqrt  <oi sc  y 
T  J  * ( AM0OA-D ISC ) /OEM 
T^« I AMBDA*0 (Sc) /DEN 
Si«8ETA*ALPhA«T  j 
S?«RET**ALPHA»T2 


are  used  to  compute  V  X2-tu  and,  using  this  value  to  solve  Equations  (104) 
and  (105) for  0.  These  values  are  used  to  solve  Equation  (10©. 

The  statement 

IF  <  WDN, QE • 0*  0  I  GOTO  160 

is  used  to  determine  the  direction  of  the  ray  with  respect  to  the  TEC  by 
evaluating  WB-N. 

The  statements 


T«Si 
Si  *5g 
S*«T 


are  used  to  interchange  the  computed  values  of  RIN  and  ROUT  if  it  was  deter¬ 
mined  by  the  last  instruction  that  the  direction  of  the  ray  is  negative  with 
respect  to  the  normal  of  the  TEC. 


422 


TN  4565-3-71  Vol  II 


The  statements 


C?t  DETERMINE  If  SIDE  InTFRSECTIQn  BETitEN  PLANES 
C 

1A0  F-Sl»*DN-V*eDN 

IF  <F  *LT  *  0  *  0  > GOTO  170 
IFtF.LE.HONJGOTG  jgo 
170  S\*-P INF 


are  used  to  compute  the  vertical  distance  etween  the  plane  of  the  base 
ellipse  and  the  plane  of  the  first  intersect  ellipse  computed  by  Equation  (106). 
This  distance  is  evaluated  to  determine  if  the  intersect  occurs  between  the 
plane  of  the  base  ellipse  and  the  plane  of  the  top  ellipse.  If  not s  the 
intersection  distance  is  set  to  an  extremely  large  negative  value. 

The  statements 

IRQ  F-S?**pN-VX RON 

If if*lt*o*o*goto  i*o 
IF ( F ■ LC ■HpNl GOTO  ?0Q 
\QQ  $£«PlNF 


are  used  to  compute  the  vertical  distance  between  the  plane  of  the  base  ellipse 
and  the  plane  of  the  second  intersect  ellipse  computed  by  Equation  (106).  This 
distance  is  evaluated  to  determine  if  the  intersect  occurs  between  the  plane 
of  the  base  ellipse  and  the  plane  of  the  top  ellipse.  If  not,  the  intersection 
distance  is  set  to  an  extremely  large  positive  value* 

The  statement 


200  IF(tfON)  22 


begins  the  calculations  for  determining  the  intersections  of  a  ray  with  the 
plane  of  the  base  ellipse  and  the  plane  of  the  top  ellipse.  This  statement 
is  used  to  determine  the  direction  of  the  ray  with  respect  to  the  planes  of 
the  TEC. 

The  statements 


C 

e?3  ray  parallel  to  planes 

c 

210  SI--PINF 
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^nTO  300 


are  executed  if  the  ray  is  parallel  to  the  two  planes  of  the  TEC.  Therefore, 
the  entry  intersect  with  a  plane  surface  is  set  to  an  extremely  large  negative 
value,  and  the  exit  intersect  with  a  plane  surface  is  set  to  an  extremely 
large  positive  value. 

The  statements 


C 

04  COMPUTE  INT6WSECT10MS  *1TM  plane  SUMEACES 

c 

220  St«R£TA*ALPHA 
50*bET  a 
IT*? 

LO*j 

flOTf)  ?40 


are  executed  for  a  ray  moving  in  a  general  direction  from  the  top  to  the 
bottom  plane.  These  statements,  therefore,  compute  the  distance  along  the 
ray  to  the  top  and  bottom  planes,  respectively.  The  surface  number  assign¬ 
ments  are  also  made  for  a  ray  entering  the  plane  of  the  top  ellipse  and 
exiting  from  the  plane  of  the  base  ellipse. 

The  statements 


C 

230  ST*BETa 

SO«reTa*AIPha 

LT»1 

L0«? 


are  executed  for  a  ray  moving  in  a  general  direction  from  the  bottom  to  the  top 
plane.  These  statements,  therefore,  compute  the  distance  along  the  ray  to  the 
bottom  and  top  planes,  respectively.  The  surface  number  assignments  are 
made  for  a  ray  entering  the  plane  of  the  base  ellipse  and  exiting  from  the 
plane  of  the  top  ellipse. 
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The  statement 


2*0  IF<SO.l.T.o*0»  &0T0  S0f> 


is  used  to  determine  if  the  ray  misses  the  top  or  base  planes  by  evaluating 
the  distance  to  the  plane  that  the  ray  exits.  If  the  distance  is  negative, 
the  ray  is  moving  away  from  the  TEC. 

The  statements 


c 

c?5  DETERMINE  which  SURFACE  IS  hit 

c 

300  IF  (SI  .GE.Sl  3I0 

IF  UBS  (SI-SI)  .LF..  0*0001  1GOT0  310 

R I N  ■  5 1 

LBI-3 

GOTtl  350 


begin  the  computations  to  determine  if  the  ray  intersections  with  the  TEC  occur 
at  the  quadratic  surface  or  at  a  planar  surface.  A  test  is  first  performed  to 
determine  if  the  entry  intersection  is  on  a  plane  surface  or  on  the  quadratic 
surface.  If  entry  is  on  a  plane  surface,  a  branch  is  made  to  record  RIN  and 
the  entry  surface  number.  If  the  entry  occurs  on  a  side,  a  test  is  made  to 
determine  the  difference  between  the  potential  entrance  on  a  plane  and  the 
potential  entrance  on  the  quadratic  surface.  If  the  intersections  with  the 
plane  surface  and  the  quadratic  surface  occur  simultaneously,  a  branch  is 
made  to  record  RIN  and  the  entry  surface  number  for  the  plane  surface.  If  not, 
RIN  and  the  entry  surface  number  are  recorded  for  the  quadratic  surface.  A 
branch  is  then  executed  to  compute  ROUT. 

The  statements 


310  BIN-SI 
LBI-U 


are  executed  if  the  previous  tests  determined  that  the  ray  first  enters  a  plane 
surface.  RIN  and  the  entry  surface  number  are  assigned  from  previously 
computed  values. 
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The  statements 


350  IflSO.tEtSg)  GOTO  J60 

IFCABSJSO-S2) .LE. 0.0001 »GOTO  36o 
ROUT "S? 

LRO-3 
GOTO  4Q0 


are  used  to  determine  if  the  exit  intersection  occurs  on  a  plane  surface  or  on 
a  side  of  the  TEC.  If  the  exit  is  on  a  plane  surface,  a  branch  is  made  to 
record  ROUT  and  the  exit  surface  number.  If  the  exit  intersection  occurs  on  a 
side,  a  test  is  made  to  determine  if  the  intersection  with  the  plane  surface 
and  side  surface  occur  simultaneously.  If  it  does,  a  brar  is  made  to  record 
ROU i  and  the  exit  surface  number  for  the  plane  surface.  It  it  does  not,  ROUT 
and  the  exit  surface  number  are  recorded  for  the  quadratic  surface. 

The  statements 


360  RnuT»Sn 

L*0«10 


are  executed  if  the  previous  tests  determined  that  the  ray  first  exited  a 
plane  surface.  ROUT  and  the  exit  surface  number  are  assigned  from  previously 
computed  values. 

The  statements 


C 

*00  TF (R1N.6E .ROUT) GOTO  5i>0 

IF  U8SIR IN-ROUT) .LE.0. 000 U GOTO  S00 
IF IROUT.LE.o*0>GOTO  500 


are  used  to  test  the  computed  values  of  RIN  and  ROUT.  If  RIN  is  greater  than 
ROUT,  or  the  difference  between  RIN  and  ROUT  is  extremely  small,  or  ROUT  is 
negative,  the  ray  misses  the  TEC,  and  a  branch  is  therefore  performed  to  record 
the  miss  condition. 

The  statements 


SaROUT 

I-l 
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are  used  to  made  an  assumption  that  ROUT  is  from  a  plane  and  to  assign  one  to 
the  variable  I  for  later  use  in  a  computed  GOTO  statement. 

The  statement 

,LWO 


is  used  to  branch  the  program  to  determine  if  the  exit  of  the  ray  from  a  plane 
lies  within  the  boundary  of  the  ellipse.  The  destination  of  the  branch  depends 
upon  the  surface  number  from  which  the  ray  exits.  If  ROUT  is  from  the  side*  a 
branch  is  made  to  verify  RIN* 

The  statements 


410 

U2 


are  used  to  make  an  assumption  that  RIN  is  into  a  plane  and  to  assign  two  to 
the  variable  I  for  later  use  in  a  computed  GOTO  statement* 

The  statement 


aoTOUZ0t430*4*0)  * LRI 


is  used  to  branch  the  program  to  determine  if  the  entry  of  the  ray  into  a 
plane  lies  within  the  boundary  of  the  ellipse.  The  destination  of  the  branch 
depends  upon  the  surface  number  from  which  the  ray  exits.  If  RIN  is  into  the 
side,  a  branch  is  made  around  the  calculations  for  the  planar  intersection. 


The  statements 


C. 

C?A  DETERMINE  if  INTERSECTION  with  BASE  plane  LIES  WITMIN 
C  CROSS  SECTION  of  base  ellipse 

c 

420  F1*S«W0A.VXB0A 
F2-S*WOB-VX0D0 

F»Fl»ri/(Rl«Ai)*FE«FZ/(A2*Aal 
IF<F.0T. 1,0001 >0OTO  500 
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are  used  to  compute  the  base  plane  intersect  distance  (FI)  from  the  center 
along  the  semi-major  axis  and  the  distance  (F2)  along  the  semi -minor  axis. 
These  distances  are  used  to  solve  the  equation  of  the  ellipse  of  the 
base  plane  (F1)2/(R1)2  +  (F2)2/(R2)2.  A  test  la  made  to  determine  if  the 
intersect  lies  outside  the  ellipse  of  the  base  by  evaluating  the  results 
of  the  above  equation  for  greater  than  one  since  the  general  equation  of  an 
ellipse  is  x2/ a2  +  y2/b2  =1. 

The  statement 


OOTOUlO*4ftO>tl 


is  a  computed  GOTO  statement  that  performs  a  branch  based  on  whether  or  not 
the  RIN  intersect  has  been  verified. 


The  statement 


C 

410  lF'fU*£Q*Q.0iOR.Rt»rG*0-QiaOTO  4«0 


is  used  to  determine  if  the  plane  of  the  top  ellipse  has  any  area 


The  statements 


C?7  DETERMINE  IF  INTERSECTION  WITH  TOP  PL*NE  WITHIN 

C  CROSS  SECTION  OF  TOP  ELLIPSE 

C 

FI-9*WO*-VX0DA-HD* 

F?»S*W0a-VXB0B-HDR 

F"Fi*F !/ Ifl3«R3) ♦Fz*F2/ (H*»R4» 

IFIF.OT.l.OOOl  HJOTO  300 


are  used  to  compute,  for  the  top  plane,  the  distance  (FI)  of  the  intersect 
along  the  semi-major  axis  and  the  distance  (F2)  of  the  intersect  along  the 
semi-minor  axis.  These  distances  are  used  in  the  equation  for  an  ellipse 

to  determine  if  the  intersect  lies  outside  or  inside  the  ellipse  of  the  top 
plane. 

The  statement 


QOTOUlO*460>  >1 
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performs  a  branch  depending  on  whether  or  not  the  RIN  intersect  has  been 
verified. 

The  statements 


C?a  RAY  ORIQlNlTES  *  I  THIN  TEC 
C 

400  IMRIN.OT.O.OOOURETURN 
RIN*-. 0001 
LRI“0 

RETURN 


test  RIN  for  a  positive  distance.  If  RIN  is  a  positive  distance,  control  is 
returned  to  the  calling  program.  If  RIN  is  negative,  the  ray  originates  within 
the  TEC.  RIN  is  therefore  set  to  a  small  negative  value  and  the  surface 
entrance  number  is  set  to  zero.  Control  is  then  returned  to  the  calling 
program. 

The  statements 


C 

C?9  RAY  MISSES  TEC 
C 

S00  RINbPINF 
ROUT*-P INF 
LRI*0 
t.RO*0 
RFTURN 
END 
C 

c 


are  used  if  the  ray  misses  the  TEC.  RIN  is  set  to  an  extremely  large  positive 
value  and  ROUT  is  set  to  an  extremely  large  negative  value  and  returned  to 
the  calling  program. 
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Subroutine  ARS 

This  subroutine  is  used  to  compute  the  intersection  of  a  ray  with  an 
arbitrary  surface,  where  the  arbitrary  surface  is  defined  by  a  specified 
number  of  curves  and  a  specified  number  of  points  on  each  curve.  The  figure 
described  must  be  closed  and  solid  as  shown  below: 


XB  starting  point  of  ray 
WB  direction  cosines  of  ray 
RIN  distance  to  entry  intersect 
ROUT  distance  to  exit  intersect 
FIG.  70,  Arbitrary  Surface 
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The  statements 


SUBROUTINE  ARS 

C  SUBROUTINE  computes  intersections  Of  RAY  WITH  ARBITRARY 

C  SURFACE  -  APS 

C 

01  MENS  I  ON  W(3>*UW(3)»VW(3>.WXB«3J»WN(3)* 

1  HIT (20) .OPMAL (3.20) . I  SUMP (20) 

DIMENSION  maSTER(IOOOO) 

COMMON  ASTERI10000) 

COMMON/PAREM/X9(3) . WB  I  3 ) .IR 

COMMON/GEOM/LBASE.RIN.ROUT ,lMI«C«O.PINE  » I  ERR. D I  ST 

C0MM0N/UNCREM/NfiPP.NTRlP«NSCAt.N8O0Y»NRMAX»LTRIP»L5CAL>LREG0» 
1  LOaTA.LRIN.LROT .LIO.LOCOA.I15. I30*LBOOY.NASC»KLOOP 

COMMON/DAVIS/ I  GRID. LOOP. I  norm 
COmmon/wmich/NBO 


are  used  to  dimension  arrays  and  pass  information  into  and  out  of  this  sub¬ 
routine. 

The  statement 


EQUIVALENCE  (WASTE®. ASTER) 


is  used  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 


The  statements 


B01  FORMAT ( 1  MO  ♦  12HERROR  IN  ABS *  1 5 . 4X . 2ZHNUM0ER  OF  Hits  .GT.  20) 

902  FORM aT ( 1  ho • 1 2HERRQR  IN  ABS. IS.AX*2l HnUMBE®  OF  Hits  IS  000* 

1  2X.6H (NMIT*. 15. )H)  ) 

903  FORMAT tl HO .I2HERRO®  IN  AHS • 1 5 1 A A . 27HwHON&  SEQUENCE  IN  HIT  TaBlE* 

1  2X.6H(NHIT*.  15. 1H)  I 

910  FORMAT (5X  .4GHTH1S  ERROR  USUALLY  mEaNS  THE  ARS  IS  NOT  CLOSED  / 

1  9X .3HHIT ,Sx • THRU REACE  /  (F12.A.I12)  ) 


are  used  to  format  output  messages  which  will  occur  in  the  subroutine  if  cer¬ 
tain  errors  are  detected.  The  following  comments  explain  the  data  storage  of 
the  ARS. 

C 

C  ARS  DATA  STORAGE  IN  ASTE®  AMRay  - 

C 


c 

LOCALS 

Np  _  number  of  points 

c 

c 

nmit  -  number  of  hITS 

c 

*2 

) 

c 

4 

)  -  RESERVE  BO  wOROb  Foft  hJTS  1 A  P£R 

c 

• 

)  -  ALLOWS  FOR  10  PAIRS  OF  RIn/ROUT 

c 

*01 

) 
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c 

LOCHTS 

a  LOCARS  ♦  2 

TO  TRIANGLE 

HIT 

c 

#0 

s  -  distance  from  Start  point  xs 

c 

*1 

NX  -  DIRECTION  COSINES  of  normal 

TO  TRIANGLE 

HIT 

c 

*? 

NY  -  INX«NY,N2> 

c 

o 

N7 

c 

K 

-  4  words  per  point  tx,r,Z) 

c 

« 

Y 

-  NP  is  TOTAL  NUMBER  OF  POINTS 

c 

* 

Z 

triangle 

c 

• 

FLAG  -  5£T  *  -l  TO  SIGNAL  LINE  OR  POINT 

c 

LQC 

m 

LOCARS  <  8? 

c 

+  0 

X 

c 

M 

Y 

c 

♦  3? 

2 

c 

FLAG 

c 

c 

c 

LO  C 

m 

LOC  ♦  4  FOR  NEXT  TRIANGLE 

The  statements 
C 

c  determine  if  re  entry 

c 

LncAR5=MASTFR(LOCnA) 
LncMTS*LDCAHS*? 
IF{LOnP.NF,KLnOP)GOTO  100 


are  used  to  set  LOCARS  to  the  first  word  of  the  data  for  the  ARS ,  LOCHTS  is 
set  to  the  first  storage  word  of  80  words  reserved  for  hit  data.  A  test  is 
then  made  to  determine  if  the  intersects  for  the  current  ray  have  already  been 
computed  from  a  previous  entry  to  this  subroutine.  If  not,  the  subroutine 
branches  to  clear  the  hit  table  and  compute  the  hits  for  the  current  ray. 

The  statements 


C 

C  REENTRY 

c 

NHI T .MASTER (IOC ARS* 1 » 

IF (NHIT.LE.0l  return 
LOOLOCHTS 

c 

c  hove  intersect  data  to  hit  array 

c 

00  lo  I  •  1  t NHI T 

hit<I)*ASTFR<coc> 

Lf>C*L0C*A 

10  continue 

GOTO  600 


are  executed  if  the  intersects  for  the  current  ray  have  already  been  computed 
from  a  previous  entry  to  this  subroutine.  These  statements  are  used  to  locate 
the  number  of  hits  for  the  current  ray.  If  there  were  no  hits  on  the  ARS  for 
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the  current  ray,  the  subroutine  returns  control  to  the  calling  program.  If 
there  were  hits,  LOC  is  set  to  the  starting  location  of  the  hit  data.  The 
distance  from  the  current  origin  of  the  ray,  XE,  to  each  intersect  of  the  ARS 
is  stored  in  the  HIT  array  by  the  DO  loop.  The  program  then  branches  to 
determine  the  correct  RIN/ROUT  pair  for  the  current  ray  origin,  XE. 

The  statements 


NOT  A  REENTRY  -  ZERO  INTERSECT  OaTa  SECTION  Of  ASTER  ARRAY 

100  NHiTao 

N»1 

If <NASC.EQ.-2>GhT0  400 
li*lochts 

L2*LOCmTS*  79 

no  no  L *L  1  *L2 
ASTER  <L>  *0. 
no  continue 


are  executed  if  the  intersects  for  the  current  ray  have  not  already  been  com¬ 
puted  from  a  previous  entry  to  this  subroutine.  The  number  of  hits  counter 
is  initialized  to  zero,  and  a  test  is  made  to  determine  if  the  normal  to  the 
intersect  is  to  be  computed.  If  not,  the  hit  table  for  storing  hits  is  init¬ 
ialized  to  zero. 

The  statements 


c  COMPUTE  FOR  hit  On  TRIANGLE  It»  STORE  FLAG  AT  ASTERILOC'V 

-1  TRIANGLE  IS  A  POINT  OR  lInE  (OE-GENERATE) 

c  o  non-hegEnepate.  cQMRuTt  intersect  data 

c 

400  (_0C*l0C A R5 ■* 8? 

NT.MASTER  ftOCAHS) -2 


are  used  to  set  LOC  to  the  beginning  location  of  the  AES  point  data  and  to  set 
NT  to  the  total  number  of  possible  triangles  formed  by  the  ARS  points. 

The  statements 

00  49*)  1  T*  1  « NT 

IF  (ASTER  (L.OC-*3)  .LY.0.0)G0TO  490 


are  used  to  begin  a  DO  loop  to  process  each  possible  triangle  to  determine  if 
it  is  intersected  by  the  ray.  The  test  is  made  to  determine  if  the  present 
set  of  three  points  form  a  degenerate  triangle.  If  they  do,  the  program 
branches  to  increment  to  the  next  set  of  three  points. 
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The  statements 

w < l ) "ASTER (LnC) 

' W  l?)"ASTER  ILICM) 

W(-?»«ASTER(lOC*?) 

U*  ( 1 l*ASTEw(L0C*4t-w( 1 ) 

U* (?) "ASTER (LOC*5>-W  <?1 
Uw (31 "ASTER (1.006) -a (  U 
Vw  ( ]  )»AST£r  (I.OOR)-W  ( 1  * 

V*  (2) "ASTER (l_0C*9)-w  (?) 

V"t3»«ASTER(L0C*lf))-w(3l 
C  Wh  «  (u-w)  X  (V-W) 

*»N(  1  )  sy*  {  ?)  #vt*  (3) -MW  (1)  *Vw  <2> 

*N(2) *UW (3) *VW(1 ) -UW U )*vw (3) 

WH  [3)=U* <  l)*vw (2) -UW (?) »vw ( 1 ) 

C  n  a  Wfl  ,  WN 

0«WB  (n*WNU)*W9(?»*WW(2l*W«(3)#"N(3) 

are  executed  if  the  present  three  points  form  a  non-degenerate  triangle.  These 
statements  compute  the  vector  from  the  first  point  to  the  second  point  and  the 
vector  from  the  first  point  to  the  third  point.  The  cross  product  of  these 
vectors  is  then  computed  which  results  i^n  a_  normal  vector  to  the  triangle. 

With  the  x,  y,  and  z  components  of  U  —  W,  V  -  W,  and  WB  the  denominator  of 
Equation  (121)  is  solved. 


a(b 

-  W  ) 

+ 

B(v 

-  W  ) 

-  s 

*■  WB 

=  XB 

-  w 

X 

X 

X 

X 

X 

X 

X 

a(U 

-  w  ) 

+ 

8  (V 

-  w  ) 

-  s 

*  WB 

*=  XB 

-  w 

y 

y 

y 

y 

y 

y 

y 

a(U 

-  W  ) 

+ 

e(v 

-  W  ) 

-  s 

*  WB 

=  XB 

-  "w 

z 

Z 

z 

2 

z 

z 

z 

(121) 


For  a  point  XP  along  the  ray  to  be  within  the  computed  triangle 


XP  =  XB  4-  WB  *  S  =  aU  +  6V  -f  yW 


(119) 


where 


a  +  B  +  y  =  1 


and 


0  <  a  <  1 

°  <  e  <_  i 

o  <  y  <  1 
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Substituting  y  =  1  -  a  -  6  into  Equation  (119),  and  then  forming  a  matrix  to 
solve  for  a,  g,  and  S  results  in  the  matrix  Equation  (121). 

The  statements 


c  determine  if  ray  parallel  to  plane  of  triangle 

c 

IF ( A8S  10)  .LE. 0.0001 ) GOTO  a90 
WX8  <  I  >  sW t 1  )  -XB ( ) ) 

WX9<?)»w<21-XBt2t 
WXB  t  3) **<3)-X8 (31 


are  used  to  determine  if  the  value  of  the  denominator  of  matrix  Equation  (121) 
is  very  nearly  zero,  which  would  indicate  that  the  ray  is  parallel  to  the  plane 
of  the  triangle,  resulting  jjn  a  miss  condition.  If  no  miss  condition,  the  x, 
y,  and  z  components  of  W  -  XB  are  computed. 

The  statements 

c  oalpha  >  (w-xri  ,  <  we  x  (v-*>  > 

o alpha*  wxR<n*twe(?>*VN(3)-w8(3)*v"(zn 

1  *WXH  <?>* (W9 (3) *vw ( 1 1 -we < 1 >  *V« (3) ) 

?  ♦  (*8 U  > I2)-*B<<;)*viMI>  ) 

ALPHA*n alPha/d 

IF  (ALPHA* H .-ALPHA)  .L  T . 0 . 0 ) GOTO  490 

are  used  to  solve  matrix  Equation  (121)  for  u,  and  then  to  test  a  to  determine 
if  0  <  a  <  1,  which  is  a  condition  for  the  ray  to  intersect  the  triangle. 

The  statements 

C  OBETA  *  (W-XB)  .  l  (U-w)  x  *b  ) 

08f TA*  WXR  <  1 )  *  UJW  (2)  (31  -UW  (3) *"B  <2) > 

1  *wXFI  (2>  *(t)W  (3>  **H<1  >  -yw  ( 1 1  *40  (  3 )  ) 

2  *WXB  (3)  *<UW  (  1  >  *wH  (2)  -U*  (2i  **6  (ID 

BET  4*QBET  A/0 

IE (BETA*  1 1 .-BETA) .LT. 0.0) GOTO  490 

are  used  to  solve  matrix  Equation  (121)  for  g,  and  to  test  8  to  determine  if 
0  <  B  ^  1,  which  is  a  condition  for  the  ray  to  intersect  the  triangle. 

The  statements 
C 

gamma* i .-alpha-beta 

IF (Gamma* (1 , -gamma) 4LT.O.O)GOTO  a9o 

are  used  to  solve  for  y  from  the  relationship  y  =  1  -  a  -  B  and  then  to  deter¬ 
mine  if  0  <  y  £  1,  which  is  a  condition  for  the  ray  to  intersect  the  triangle. 

The  statements 
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C 

c  compute  distance  to  intersect  wit*  triangle 

c 

c  DS  *  (rt-XRl  .  WN 

c 

0S*4XB  (  1  >  *WN  ( 1 1  *WXR  (2)  (2  >  *wXB(3) **N  13) 

s»ns/n 

call  untt<*n) 


are  used  to  solve  matrix  Equation  (121)  for  S,  the  distance  from  the  origin 
of  the  ray  to  the  intersect  of  the  triangle.  The  direction  cosines  of  the 
normal  to  the  triangle  are  then  computed  by  calling  Subroutine  UNIT. 

The  statements 
C 

C  DIRECT  NORMAL  INTO  ARS 

C 

IF (IT-tlT/?)*?«EQ,0) GOTO  *10 
m\ jl ) «-*n { i ) 
wm2> *-wn  (?) 

3 ) «-mn  l  3 ) 

Da-o 

410  JSLIRF*TT 

IF  (O.LT  .0. 0)  JSURFa-JSl'RF 

are  used  to  test  for  an  even  numbered  ARS  surface  triangle.  If  even  numbered, 
the  normal  will  be  into  the  ARS  as  desired.  If  odd  numbered,  the  normal  will 
be  away  from  the  ARS.  Therefore,  the  normal  for  an  odd  numbered  triangle  is 
reversed  along  with  the  denominator  value  of  Equation  (121)  .  Lhe  intersected 
surface  number  is  then  equated  to  the  ARS  triangle  number.  If  the  denominator 
value  is  negative,  the  surface  number  is  reversed  to  indicate  an  exit  intersect. 
(Actually,  the  surface  number  and  normal  may  be  opposite  to  that  described  above, 
depending  upon  how  the  ARS  was  defined.  This  problem  is  resolved  by  the  state¬ 
ments  following  statement  540  such  that  all  normals  are  directed  into  the  ARS.) 

The  statements 


c  comparf  new  intersect  distance  mth  distances  alreaot  in 

c  wit  table 

c 

C  STORE  WITS  (LARGEST  TO  SMALLEST) 

c 

IF (NrilT .FQ.rt) GOTO  430 
nn  4211  T *  1  ,NHIT 

IF(A8S(S-hTT(I)),lE. 0,0001) GOTO  470 
IF (S.GT.HIT (I) ) GOTO  4N0 
420  CONTINUE 

are  used  to  determine  if  there  are  any  other  hits  in  the  hits  table.  If  the 
present  intersect  is  not  the  first  hit,  the  DO  loop  is  executed  to  either  find 
an  intersect  with  an  equivalent  distance,  or  to  find  the  location  for  the  next 
intersect  in  the  hit  table.  Intersects  are  stored  largest  to  smallest  in  the 
HIT  array. 
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The  statements 


430  nhi T ■nhI T* 1 
I*nhit 

IF  (NHIT  »LE  *20 ) GOTO  44ft 
435  WRlTE^^ODNfiO 

.n.Tr  f  W  T  1 


\r  (  NH  IT#  LC.  •  c  v  #  vjw  i  " 

NHlT»0 


are  used  to  increment  the  hit  counter  by  one,  if  the  current  hit  is  the  fiTSt> 
or  if  there  is  a  larger  distance  already  in  the  hit  table.  The  number  of  h 
counter  is  equated  to  variable  I,  and  a  test  is  made  to  determine  if  there 
have  been  more  hits  than  the  capacity  of  the  hits  table.  If  there  are  mor 
than  20  hits  in  the  hits  table,  error  messages  are  printed  out  and  the  program 
branches  to  record  a  miss  condition. 


The  statements 


c  IF  NEW  INTERSECT*  STORE  HIT 

C 

440  HlTU)»S 

opmal  n  *  i  )  »**n  ( i  > 
ormal (?. n *wn(?) 

ORmAL (3*1 )«WN(3> 

I surf < i) sjsurf 

GOTO  490 


are  used  to  store  the  distance  to  the  intersect,  the  direction  cosines  of  the 
normal  to  the  intersected  triangle,  and  the  surface  number  of  the  intersected 

triangles. 


The  statements 


c  ADO  A  HIT  TO  TABLE  WHEN  S.GT.H|T(I> 

C 

450  J*nHIT 

nhiT«nhIT*1 

IF  <NHIT.GT.20)G0T0  43S 


are  executed  when  the  current  intersect  is  larger  than  a  hit  distance  presently 
in  the  hit  table.  These  statements  save  the  present  number  of  hits  in  location 
J,  increment  the  hits  counter  by  one,  and  test  to  determine  if  the  new  hit 
exceeds  the  capacity  of  the  hit  table.  If  it  does  the  program  branches  to 
print  out  error  messages  and  to  record  a  miss  for  the  new  hit. 
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The  statements 


C 

460  IF  t J.LT. I) GOTO  440 
HIT ( J4 l ) ■HIT ( Jl 
OflMAl.  (  l  t  J*I  teOHMAt  l  1  ♦  J) 
OWmAL I ?  *  J* 1 >  *OfiMAL ( 2  •  J ) 
ORmal  I3iJM  i  *0RMAL  <  3*  J) 
ISURF  (  jM  I  =  I  SURF  (  J) 
J=J-1 
GOTO  460 


are  used  to  insert  the  current  hit  to  the  hit  table  such  that  all  intersect  dis¬ 
tances  are  stored  from  largest  to  the  smallest  distance.  The  direction  cosines 
array  and  the  intersected  surface  number  array  are  also  rearranged  to  agree 
with  the  order  of  the  intersect  distances  in  the  hit  table. 

The  statements 


TwO  ENTRIES  IDENTICAL  wmEn  i  .£U,  M I T  ( t ) 

IF  BOTH  RJN  OH  BUTm  hout  ignore 

IF  ONE  A  PIN  «ND  OTHER  A  HOUT  DELETE  EnTHy  In  TABLE 
470  JSURF*I$U»F  [  .GT.fDGOTO  490 
DELETE  ENTRY 
NHtT*NHl T-l 

480  IF < I .GT.NH1 T > GOTO  4R0 
HIT  II ) -HIT  (1*1) 

OHmAl (1*1) aORHAL ( I » I ♦ U 
OHMAL (?  « I )=0HMAL (2*1*1) 

ORhAl (3* l I •OPMAL (3*1*1) 

ISUftF I I ) sISURF ( 1  *  )  ) 

tMM 

GOTO  4«0 


are  executed  when  an  entry  in  the  hit  table  is  found  to  be  equal  to  the  present 
intersect  distance.  If  the  hit  table  intersect  is  of  the  same  type  as  the 
current  intersect  (both  RIN  ox  ROUT),  the  program  leaves  the  entry  as  is  and 
branches  to  consider  the  next  possible  triangle.  If  the  current  intersect  is 
different  than  the  entry  being  tested,  the  number  of  hits  counter  is  reduced 
by  one.  If  there  are  no  additional  hits  in  the  table,  the  program  branches 
to  consider  the  next  possible  triangle.  If  there  are  additional  hits  in  the 
table,  the  current  entry  in  the  table  is  eliminated  and  the  hits  in  the  hit 
table,  the  normals  in  the  normal  array,  and  the  surface  number  array  are  re¬ 
arranged  because  of  the  deleted  entry. 


438 


non  o  n  n  n 


TN  4565-3-71  Vol  II 


The  statements 


INCREMENT  to  TEST  next  POSSIBLE  TRIANGLE 

490  LOC=LOC*a 
<►99  CONTINUE 


are  used  to  increment  to  the  next  point  in  the  triangle  point  data  section  of 
the  ASTER  array,  and  then  branch  to  test  the  next  three  points  to  determine 
if  the  current  ray  intersects  this  next  triangle. 

The  statements 


ALL  POSSIBLE  TRTANSlES  EXiMInED 
CHECK  FOR  AN  EVEN  NUMBER  OF  HITS 

IE  t'MH!  T.Eu.n)  OOTO  700 

IF (NHIT-(NmET/2)«?.EQ*0>UOT0  500 

ERROR  -  INCORRECT  SEQUENCE  06  HITS 
*RITE<6*902>N8O,NhIT 

*RIT£(ft,910)  (HIT(I)  . ISURF ( I ) » I»1 *NhIT  > 

nhit»o 

ROTO  700 


are  executed  when  all  possible  triangles  of  the  ARS  have  been  examined  and  are 
used  to  test  for  an  even  number  of  hits  if  any  hits  on  the  ARS  have  taken  place. 
If  there  were  an  odd  number  of  hits,  error  messages  are  printed  out  giving  the 
body  number  and  the  number  of  hits.  The  hit  array  and  the  surface  number  array 
are  also  printed  out  in  table  format. 

The  statements 


CHECK  FOR  CORRECT  SEQUENCE  OF  EMTS(-) 

500  00  520  t*2.NH!T 

IF  (  I  SURF  (l-l)MSUftF  ill  .GT  .  O'  GOTO  525 
520  CONTINUE 
GOTO  530 


Ebpor  -  INCORRECT  SEQUENCE  OF  h I T5 
wRTTE(M9031  NHO*Nh1T  ,  K1  .  _ . 

-RITE (ft. 910) <HIT(!l tlSURFl!) *l*l»NHlT> 
Nh i T ■ 0 
ROTO  700 


A  NO  ENTRANCES!*) 
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are  used  to  determine  if  the  hits  in  the  hit  table  alternate  from  RIN  to  ROUT 
to  KIN,  etc.  If  not,  error  messages  are  printed  out  giving  the  body  number 
and  the  hit  number  causing  the  trouble.  The  entire  hit  array  and  the  surface 
number  array  are  printed  out  in  table  format.  The  number  of  hits  counter  is 
set  to  zero  and  the  program  branches  to  record  a  miss  of  the  ARS  for  the  given 

ran  ^ 


The  statements 


C 

C  LOCATE  NEXT  ROOT  DISTANCE  RELATIVE  TO  CURRENT  POSITION  OF  XP 

C 

530  IF (HIT  INHIT- 1 ) .GT, o.O I  GO  TO  54  0 
NHIT.NmIT-? 

IF (NHIT ,l£*oi GOTO  TOO 

GOTO  530 


are  used  to  test  the  ROUT  distances  in  the  hit  table,  from  the  smallest  to 
the  largest,  until  a  positive  distance  is  found  with  respect  to  the  current 
origin  of  the  ray.  If  no  positive  ROUT  distance  is  found  the  program  branches 
o  record  a  miss  condition  from  its  present  point.  When  the  next  ROUT  dis- 
tance  is  found,  the  program  branches  to  check  if  normal  distances  are  to  be 


The  statements 


C 

C  CHFCK  DIRECTION  OF  NORMAL  F OH  LARGEST  DISTANCE  IN  HIT  TaRLE 

C  VERIFY  THAT  NORMAL  IS  AN  EXIT  FOR  THE  RflUT  INTERSECT 

C 

54  0  IF  (NASC.EQ,-2K»nTfi  f>0r 

IF < ISURF U ) .LT.0) qOTO  560 
00  550  T -1 , NH I T 
OHMAL (1*1) =-OWMAL  1 1  *  1 1 
ORmAl (?* I ) s -OHMAL (2*  t ) 

ORmAl (3*1) =-OHMAL  <  3* I> 

ISURF  (  I  )  »*■  I  SURF  (  I  ) 

550  COnTInuF 


are  used  to  first  test  if  this  subroutine  was  called  by  Subroutine  CALC  to 
compute  normal  distances.  If  normal  distances  are  to  be  computed,  the  program 
branches  to  select  the  correct  R1N  and  ROUT  set.  If  normal  distances  are  not 
to  be  computed,  the  surface  number  of  the  first  hit  in  the  hit  table  is  tested 
to  verify  that  it  is  negative  for  a  ROUT  intersect.  If  not  negative,  all  of 
the  signs  for  the  normals  and  surface  numbers  of  the  hit  table  are  reversed. 
This  insures  that  all  normals  are  directed  into  the  ARS  and  the  surface  numbers 
of  the  intersects  have  the  correct  sign. 
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The  statements 


C 

C 

C 

c 


STORE  HU  TABLE  IN  ftST F "“****  f 
UNLESS  computing  normal  distance 


560  LOC*lOChTS 

DO  570  I«I .NHIT 
ASTER  (LOO-HIT  (  I ) 

ASTER  tLOC*l )=ORMAL *  T • n 
A 5 TER  t  LOO?  1  *0Rmal  (2  *  I  i 

ASTER (L0C*3I*0Rmal  I > 

l0C*l0C* 4 

570  continue 


are  used  to  store  the  hit  table  and  the  normal  coordinates  (direction  cosines) 
for  each  of  the  intersects  for  the  current  ray  in  the  ARS  section  of  the 
ASTER  array. 

The  statements 


C 

C  CHOOSE  CORRECT  RlN  AND  ROUT  SET  FOR  CURRENT  POSITION  OF  Xp 

t  this  section  is  also  used  by  reentry  routine 

c 

600  IF{NHIt.EO.OIGOTO  700 
R I N*H I T  INMIT) 

ROuTbhTT ( NH I T - 1 > 

l«TM 

lAo»  I 

fJHT  T.nmI  T-? 

IF  f ARS {P IST-ROUT) ,LE. 0.0001) GOTO  600 

IE (DIST.GE.ROUT)GOTO  *00 

IE (ASS l» IN-ROUT) .lE . 0,0001) GOTO  600 

IF (RIM. GT, 0,0001 )GOTO  BOO 

RiN*-PTNF 

lRI*0 

GOTO  000 


are  used  to  test  the  RIN/ROUT  pairs  of  intersects  against  the  current  distance 
that  the  ray  has  travelled,  and  to  select  the  RIN/ROUT  pair  such  that  RIN  £ 
Distance  <  ROUT.  If  RIN  is  equal  to  zero,  it  is  set  to  a  nimus  infinity  to 
force  the  program  to  choose  ROUT. 
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The  statements 


C 

C  «4V  MISSFS  aflS  from  CURRENT  LOCATION 

c 

Too  RlN«»lNF 

RO(/T=-P  tNF 

lRt*» 

cRo=n 


are  used  to  set  RIN  and  ROUT,  and  the  intersected  surface  numbers,  to  record 
a  miss  condition  for  the  current  ray. 

The  statements 


«00  Jf  <NASC.NE.-2)MASTER<L0CARSM )«N*IT 
RE  TURN 
E^O 


are  used  to  revise  the  number  of  hits  in  the  ASTER  array  If  this  subroutine  was 
not  called  by  Subroutine  CALL  to  perform  normal  intersect  calculations.  The 
ProStam  then  returns  control  to  the  calling  program , 
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Subroutine  TOR 

This  subroutine  computes  the  ray  intersections  with  a  torus.  The  torus 
geometry  is  illustrated  in  Figure  71# 


XB  starting  point  of  ray 

WB  direction  cosines  of  ray 


1 

IIS 

(XP-c\ 

7 

XP 

C 


d 


point  of  intersect  with 
torus 

center  of  torus 

radius  of  torus 

radius  of  circular 
cross-section 

normal  to  plane  of  torus 
(unit  vector) 

direction  of  r^  (unit 
vector) 


m  vector  from  midpoint  of 
cross-section  to  point 
of  contact 


FIG.  71.  Torus  Geometry 


The  intersection  with  the  torus  may  result  in  either  one  or  two  sets  of  RIN 
and  ROUT  as  shown  in  Figure  72. 
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XB 


WB 

C 

RIN 


ROUT 


starting  point  of  ray 

direction  cosines  of  ray 

center  of  torus 

distance  to  entry 
intersect 

distance  to  exit 
intersect 


FIG,  72.  Intersections  with  a  Torus 

If  two  sets  are_^Eound ,  the  routine  selects  the  first  pair  that  are  greater 
than  the  point  XB.  s 

The  statements 


DIMENSION  COEF  1*1  ,8TU|i*NI)l  t*BC  *3> 

DIMENSION  M4STEP ( 10000) 

COMMON  aste«Uoooo> 

C0MM0N/Pa«EM/XB<3) fWBIjItlft 

COMMON/QEOM/LB A S£  *  P 1 N « ROUT *CBI *LPO*PlNF • IEflRtnlST 

C0MM0N/UNC0EM/NRPPfNTRIptNSCAt.Na00f!NS;;;:^SlP;i.,CAL.L«Efl0. 

1rnMMft^ftA5Jiy»fl2T*LI2,l*OCDA'IlS*l3o,C0OOV*NASC»K‘'OO,> 
COMMON/OAVIS/ IOPIDtCOOP • I NORM 


are  used  to  dimension  arrays  and  pass  information  into  and  out  of  the 
subroutine. 
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The  statement 

EOUI  V*t,ENC€  USTER«M*5TER) 


is  used  to  set  the  ASTER  array  equivalent  to  the  MASTER  array. 


The  statement 


Cl  CHECK  FOR  PREVIOUS  ENTRY 
C 

IF ( LOOP. NC.KLOOP} GOTO  10 


is  used  to  check  whether  the  intersections  have  been  computed  from  a  previous 
entry  to  the  subroutine.  If  they  have  not,  control  is  transferred  to  compute 
the  roots. 

The  statements 


C 

CP  THIS  IS  *  REENTRY 
C 

NR>MASTER(U0CD*«2l 
IF(NR*LE*2) RETURN 
RIN*ASTER<l0C0A*3> 
ROUTNASTER UOCDA *4 } 
Nfl»o 

GOTO  400 


are  executed  if  the  intersections  for  the  torus  were  computed  from  a  previous 
entry  to  this  subroutine  and  are  used  to  test  whether  two  sets  of  RIN  and 
ROUT  were  obtained.  If  only  one  set  was  computed,  the  number  of  real  roots 
variable, NR,  will  equal  2,  and  execution  will  return  to  the  calling  routine. 
If  two  sets  were  obtained,  the  second  set  is  retrieved  from  the  ASTER  array 
and  equated  to  RIN  and  ROUT.  Control  is  then  transferred  to  Statement  400. 

The  statements 


C, 

Cl  RETRIEVE  LOCATIONS  OF  TORUS  DATA 
C 

10  CALL  UN21L0C0A, IV.IM 
LOC«L0CDA*l 
CALL  UN2(L0C*If>l»!R2) 
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which  are  executed  if  ray  intersections  have  not  been  computed,  are  used 
to  retrieve  the  pointers  to  the  vertex,  normal,  and  major  and  minor  axes 
of  the  torus  in  the  MASTER  array. 

The  statements 


c  „  . 

ca  compute  intermediate  variables  needed  to 

c  FIND  COEFf  J  C  1 1  NTS  OF  OUaMTIC  EQUATION 

c 

XflCr  It«ABm*«STER(  IV) 

XBC<2>*Xfl<2l-4STEfl  I  I  V* i ( 
me  <3  )  »X0  (3>“aSTERUV*^I 
xn<1>*aSTE«<In) 
x  n 1 2 1 *aSTEr (In* i ) 

XM ( 3) «aSTEPM  IN*?) 

R1*aSTE«(IP1) 

«?**STEfillR2) 


are  used  to  compute  an  intermediate  variable  for  computing  the  four  coefficient 
to  the  quartic  equation  to  solve  for  the  intersections.  R1  and  R2  are  the 
two  radii  used  in  describing  the  torus,  XN  is  the  normal  to  the  torus. 

The  statements 


IF ( naSc  *NE , ) GOTO  go 
MSAVE-O. 

QOTO  3o 


are  used  to  test  the  value  of  NASC.  If  NASC  is  set  at  -1,  computations  for 
a  new  ray  are  desired.  If  NASC  is  set  at  -2,  the  routine  was  called  from 
Subroutine  CALC  to  find  the  normal  distance,  and  intermediate  variable 
RSAVE  is  set  to  zero. 

The  statements 


20  p$AVE»aBS(COT (XhC  » *04 )  i-m-Hg-pg 
*HCU*«*BC  (  1)  *«SAVe#wfl  (If 
xRC<2>-xac (2> *RSAve*wh(g) 

*BC (3>-*8C  <3> *«SAVE*km (3) 


are  used  to  compute  intermediate  value  RSAVE  and  to  temporarily  shift 
vector  (XB-V)  along  the  ray  to  Insure  correct  solution  of  the  quartic  equa 
tion  by  Subroutine  QRTIC  if  NASC  was  set  to  -1. 
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The  statements 


10  wo*b0OT <*b«xn> 
XflCO#»nOT  <  xyc*wn) 
*SCON-0OT (X^QtXNl 
X8CXSC«D0T (XRC**«C> 

R 1 S0»P 1 *R 1 
«zS0«fi?*S2 

Tf-RM»XScXBC-«lS0-R2SQ 


are  used  to  compute  additional  intermediate  terms  required  for  the 
coefficients. 

The  statements 


C 

CR  COMPUTE  COEFFICIENTS 

c 

C"£F ( l)»*.#XHC0* 

COEF  (2)»*,*BiSO*rtoN*i»iiN**.*XBCD»#XaCOW*2,*TEHM 

COEF<3»«8.*Bi3a*«oN»X9CON*4.«XHCDw»TcBH 

COEF  m**.*R]SQ*xeCQN*X8C0N*TERM»TeAM-*,«)lilQ»R2SQ 


are  used  to  compute  the  four  coefficients  required  for  the  quartic  solution 
using  Equation  (117)  where 


If  the  line-of-sight  intersects  (not  the  normal  distance)  are  to  be  computed, 
the  origin  of  the  ray,  XB,  is  shifted  along  the  direction  of  the  ray,  WB,  by 
an  amount,  RSAVE,  to  insure  correct  solution  of  the  quartic  equation  by 
Subroutine  QRTIC- 
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The  statement 


C*LU  QHTic(COC^*WT»NN| 


is  used  to  call  Subroutine  QRTIC  to  solve  the  quartic  equation.  The  coef¬ 
ficients  of  the  quartic  equation  are  passed  in  the  argument  list.  Sub¬ 
routine  QRTIC  returns  with  the  roots  in  argument  array  RT  and  the  number 
of  real  roots  in  argument  NR. 

The  statement 


c*  determine  ir  o*  or  *  roots 
c 

IF  <NR-Z)5O0f I0flf200 


is  used  to  determine  if  there  are  no  real  roots ,  two  real  roots*  or  four 
real  roots* 

The  statements 

C 

c?  TrfO  ROOTS 

C 

100  iFUBSfRT  m-RT  (2)  )  ,GT, 0*0001 )OOT0  ilO 
GOTO  SO 0 

are  executed  if  the  solution  of  the  quartic  equation  resulted  in  two  real 
roots.  These  statements  are  used  to  determine  if  the  two  intersect  dis¬ 
tances  are  very  nearly  equal  and,  if  they  are,  to  set  the  number  of  real 
roots  variable  to  zero  and  transfer  to  record  a  miss  condition. 

The  statements 


110  RT<n«RTlU*RS AVE 
RT l*)  *RT  <a> ♦RSaVC 
IF ( RT  < i ) *LTtRT  f GOTO  300 
T-«T  <  1 1 
RT(I>*RTl2> 

GOTO  300 


are  executed  if  the  two  intersect  distances  are  not  very  nearly  equal. 
These  statements  are  used  to  readjust  the  intersect  distances  with  respect 
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to  the  original  starting  position  of  the  ray  before  it  was  shifted  by  RSAVE. 
The  shorter  and  longer  distances  are  stored  in  array  elements  RT(1)  and 
RT(2)  respectively,  after  which  the  program  branches  to  assign  RIN,  ROUT, 
and  the  surface  numbers. 

The  statements 


C 

C«  FOUR  BOOTS 
C 

200  DO  210  1-1.4 

BT ( 1 ) *BT  II ) *BS*VE 
210  CONTINUE 


are  executed  if  the  solution  of  the  quart ic  equation  resulted  in  four  real 
roots.  These  statements  consist  of  a  DO  loop  which  is  used  to  readjust  the 
four  intersect  distances  with  respect  to  the  original  starting  position  of 
the  ray  before  it  was  shifted  by  RSAVE. 

The  statements 


C 

CB  SORT  ROOTS  IN  ASCEND 1N8  OB OCR 
C 

220  IF<RTm,LE.RT(2))0OTO  2)0 
T-RT  ( l » 

PT<i>«RT(2> 

RT<2)«T 

230  IF (RT «LE*BT (3!) GOTO  2*0 
T-BT  <  2 1 
BT l2f"BT (3) 

BT  t  j) *T 
OOTO  220 

240  IF <RT <31 »LE.RT (4)) OOTO  25o 
T-RT ( 3 ) 

BT (j) -BT (4) 

RTU)-T 
GOTO  230 


are  used  to  sort  the  four  intersects  from  the  smallest  distance  to  the 
largest  distance  in  the  four-element  array,  RT. 
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The  statements 


C 

Cio  IF  RAY  TANGENT  TO  SURFACE  ELIMINATE  INTERSECTS 

C 

250  IF IABSiRT  121-RT 13) > ,®T.0.0001  »OOTO  2*0 

NR*NR*2 

RT (2»*RT (*) 

GOTO  270 

260  IF  UBS (RT 13 » -RT (A) > »9T, 0,0001 )  GOTO  270 
NR*NR*2 

270  IF (a85(RT (i>»RT  12) ) .GT.O.OOOllOOTO  2§o 

NR*NR>2 

PT l 1 ) *RT (J) 

RT(Z)»RT (4) 

2*5  IF  ( NR » I.E  *  0 )  GOTO  500 

IF  <RT  i2)  .flT.o.oHJOTO  300 

NR«NR*2 
AT  < 1 ) "RT (3) 

RT(2)*RTU> 

GOTO  260 


are  used  to  compare  successive  intersect  distances  —  RT(1)  with  RT(2), 

RT{2)  with  RT(3),  and  RT(3)  with  RT(4)  -  to  eliminate  intersect  pairs  whose 
difference  is  very  nearly  equal  to  zero.  This  indicates  that  the  ray  is 
tangent  to  the  surface.  If  such  a  pair  is  located,  the  number  of  roots 
indicator,  NR,  is  decremented  by  two,  and  the  remaining  roots  are  stored 
in  the  first  elements  of  array  RT. 

The  statement 

c 

300  IFINR-2) 50 0.350*310 

is  used  to  determine  the  number  of  remaining  intersects  after  the  tangent 
intersects  have  been  eliminated. 

The  statements 


C_ 

CU  FOUR  INTERSECT*.  DETERMINE  MH1CM  AIN/ROUT  set  REQUIRED 

c 

310  IFUBS(DIST-RTt2M  .  LE .  0 . 0001  >  GOTO  320 
IFIOIST.LT. RTI*))OOTO  330 
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320  RIH^RTljl 
ROUT«RTU> 

NR*0 

GOTO  400 

330  ASTC<HL0CDAO)>RT(3) 
4STcR (UOC0A*A> <*> 


are  executed  if  there  are  four  legitimate  intersects  of  the  torus.  These 
statements  first  determine  the  distance  that  the  point  on  the  ray  has 
travelled  relative  to  the  second  intersect.  If  the  point  on  the  ray  is  at 
the  second  intersect,  the  values  of  RIN  and  ROUT  are  determined  from  the 
second  pair  of  intersects,  and  NR,  the  number  of  intersects  not  yet  used, 
is  reduced  to  zero.  If  the  point  on  the  ray  is  located  before  the  second 
intersect,  the  required  values  of  RIN  and  ROUT  will  be  determined  from  the 
first  pair  of  intersects.  Therefore,  the  second  pair  of  intersects  is 
stored  in  the  ASTER  array  for  later  use. 

The  statements 


350  RTN»RT(l> 

RrtUT-RT (*) 


are  executed  if  there  are  only  two  intersects  of  the  torus,  or  if  there  are 
four  intersects  ,  but  the  point  on  the  ray  is  not  yet  past  the  second  inter¬ 
sect.  These  statements  therefore  assign  RIN  and  ROUT  from  the  first  two 
elements  of  array  RT. 

The  statements 


*00  LRIM 
lrom 

ir (RIN.GC.ROUTIOOTO  500 

iriABS(RIN-ROUT)  .LC.O.OOOPOOTO  300 

tr (ROUT.LC. 0*0 > GOTO  500 

jr (RIN.GT.o.OOOl)GOTO  *00 

RIN«-.0001 

LRI»0 

GOTO  600 


are  used  to  set  the  entering  and  leaving  surface  numbers  to  one  and  to  make 
a  series  of  tests  on  the  values  of  RIN  and  ROUT.  If  the  value  of  RIN  is 
greater  than  ROUT,  or  the  absolute  difference  between  RIN  and  ROUT  is  very 
nearly  zero,  or  the  value  of  ROUT  is  less  than  or  equal  to  zero,  the 
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program  branches  to  record  a  miss  condition.  If  the  value  of  RIN  is  very 
nearly  zero  or  less  than  zero,  RIN  is  set  to  a  small  negative  number,  and 
the  entering  surface  number  is  set  to  zero  to  indicate  that  the  ray  originates 
within  the  torus. 

The  statements 


C1Z  RAT  Hisses  PAON  present  origin 
c 

900  RINaPINP 
ROUTa-PINP 

LPI"0 

(.ROaO 


are  executed  if  the  ray  misses  the  torus  from  the  present  point  on  the  ray. 
RIN  is  set  to  an  extremely  large  positive  number  and  ROUT  to  an  extremely 
large  negative  number.  The  entering  and  exiting  surface  numbers  are  then 
set  to  zero. 

The  statements 


600  M6STER(L0C0A*2>aNA 
RETURN 


are  used  to  store  the  number  of  intersects  of  the  torus  with  respect  to  the 
present  distance  travelled  by  the  point  on  the  ray.  The  program  then 
returns  control  to  the  calling  routine, Subroutine  G1  or  Subroutine  WOWI. 
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